Excel之VBA实现一键批量合并某列相同单元格

 Sub 批量合并居中相同单元格()     
Dim l%, i%     
Application.DisplayAlerts = False     
k% = InputBox("请输入合并单元格所在列")    
l = [A65536].End(xlUp).Row     
For i = l To 2 Step -1
         If Cells(i, k) = Cells(i - 1, k)   Then
         Range(Cells(i - 1, k), Cells(i,   k)).Merge
         End If     
Next     
Application.DisplayAlerts = True     
End Sub