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，执行！