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