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

《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

 

    原文作者:QQ359677345
    原文地址: https://blog.csdn.net/u010317618/article/details/105797032
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞