合併連續性相同儲存格

    要合併連續性相同儲存格內容時，可以用以下程式碼

Sub 合併相同內容的連續儲存格()

   Dim row1 As Integer

   Application.DisplayAlerts = False

   With ActiveSheet

       row1 = .Range("A65536").End(xlUp).Row

       For i = row1 To 2 Step -1

         If .Cells(i, 1).Value = Cells(i - 1, 1).Value Then

            .Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge

         End If

       Next i

    End With

    Application.DisplayAlerts = True

End Sub

執行此程式，A欄的連續性相同儲存格將會被合併