复制代码
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 执行
首先把那几个A字的单元格都选中，然后鼠标右键，---设置单元格格式-----对齐--合并单元格---确定---在确定
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024