第1个回答 推荐于2016-08-27
处理第一列的VBA
Sub tt()
Application.DisplayAlerts = False
Dim i%, k$, fr%, lr%, ttlr%
ttlr = [a1].End(4).Row
k = [a1]
fr = 1
lr = 1
For i = 2 To ttlr
If Cells(i, 1).Value = k Then
lr = i
Else
Cells(fr, 1).Resize(lr - fr + 1, 1).MergeCells = True
k = Cells(i, 1).Value
fr = i
End If
Next
Cells(fr, 1).Resize(lr - fr + 1, 1).MergeCells = True
Application.DisplayAlerts = True
End Sub本回答被提问者和网友采纳