右链凯键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，执行
不清楚你需要问什么？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024