excel合并相同列数据到同一单元格

右键SHEET1复制代码
Sub MergeSameCells()
     Dim lRow As Integer
     Application.DisplayAlerts = False
     With ActiveSheet
         lRow = .Range("A65536").End(xlUp).Row
         For i = lRow 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
     End With
     Application.DisplayAlerts = True
End Sub
关闭窗口，按ALT+F8，执行！