|
▼nossori さん みなさま:
おはようございます。
アクティブセルから下へ検索をし、内容が一緒であれば結合するコードです。
Sub 縦統合()
Dim myRange As Range
Dim Cnt As Long
For Cnt = 0 To ActiveCell.End(xlDown).Row
If ActiveCell.Value <> ActiveCell.Offset(Cnt, 0) Then Exit For
Next
Set myRange = Range(ActiveCell, ActiveCell.Offset(Cnt - 1, 0))
Application.DisplayAlerts = False
myRange.MergeCells = True
Application.DisplayAlerts = True
Set myRange = Nothing
End Sub
>セル結合はデータ処理上不都合が多いのでなるべくやめた方が良いと思います。
>見やすくということであれば「〃」にするなどとしてみてはいかがですか。^d^
データ処理を行う上ではだるまさんセルのおっしゃる通り結合を行わない方が良いのですが、
データ処理後の出力用などに使うためには、結合もありかな?と思いまして
コードを作成してみました。
|
|