今天，学习了一个通过vba编程实现合并相同值单元格的代码，但是发现代码没有注释，很难搞懂，琢磨之后加注释放在这里，不多说上代码：
Sub 合并相同项()
Dim i%, j%, rg As Range '定义i为整数型，定义j为整数型，定义rg为单元格类型
Application.DisplayAlerts = False '关闭警告提示框
j = Application.CountA([a:a]) '计数第一列的行数
For i = j To 2 Step -1 '由最后一行向上循环
Set rg = Range("a" & i) '设置选中区域为第一行至当前循环行即第i行
If rg = rg.Offset(-1) Then rg.Offset(-1).Resize(2).Merge '如果选中范围的最后一行与向上移动一行的值相同则合并单元格
Next '循环结束
Application.DisplayAlerts = True '开启警告提示框
End Sub
