excel vba 学习笔记1 合并相同单元格

今天，学习了一个通过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