表格 合并功能

只能用VBA：
Sub 合并A列相同内容单元格()
Application.DisplayAlerts = False
n = [A1].End(4).Row
For I = n To 2 Step -1
If Range("A" & I) = Range("A" & I - 1) Then