EXCEL vba 合并相同儲存格

標籤：next   got   row   als   app   ext   單元   快捷   play   

Sub Macro1()
‘ Macro1 Macro
‘ 快速鍵: Ctrl+Shift+A
Application.Goto Reference:="Macro1"
Application.DisplayAlerts = False
For i = [a65536].End(3).Row To 2 Step -1
If Cells(i - 1, 1) = Cells(i, 1) Then
Range(Cells(i - 1, 1), Cells(i, 1)).Merge
End If
Next
For i = [a65536].End(3).Row To 2 Step -1
If Cells(i - 1, 7) = Cells(i, 7) Then
Range(Cells(i - 1, 7), Cells(i, 7)).Merge
End If
Next
Application.DisplayAlerts = True
End Sub

EXCEL vba 合并相同儲存格