連続して同じデータが入力されたセルを結合する｜Excel VBA

ツイート

特定の列で同じデータが連続した場合、そのセルを結合します。
次のサンプルは、アクティブシートのA列に入力されているデータを判断しています。

Sub Sample()
    Dim myRng As Range, myRow As Long

    Set myRng = Range("A1")

    For myRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        With Cells(myRow, 1)
            If .Value = .Offset(1, 0).Value Then
                Set myRng = Union(myRng, .Offset(1, 0))
            Else
                Application.DisplayAlerts = False
                myRng.Merge
                Application.DisplayAlerts = True
                Set myRng = .Offset(1, 0)
            End If
        End With
    Next
End Sub