Excel2016VBA标注相同内容的单元格组

1、创建数据列，可以直接复制到电子表格中，如下图：sp11112222333444456778899101010

2、打开VBA窗口(ALT+F11),创建模娄壶狩匈块，复制黏贴一下代码:Public Sub 标注过程()m =1 '要标注的列i = 2 Do Until Cells(i, m像粜杵泳) = "" j = i k = 0 Do Until Cells(j, m) = "" If Cells(j + k, m) <> Cells(i, m) Then Exit Do Else If Cells(i - 1, m).Interior.ColorIndex <> 40 Then 'Rows(j + k).Interior.ColorIndex = 40'标注行 Cells(j + k, m).Interior.ColorIndex = 40 '40标注为黄色 Else Cells(j + k, m).Interior.ColorIndex = 20 '20标注为蓝色 End If k = k + 1 End If Loop i = i + k LoopEnd Sub

3、修改参数，由于我们需要标注的内容在A列，我们需要把参数过程中的参数m，修改为1，假设需要标注的内容在3列，那么我们就把m列参数修改为3即可。

4、执行过程，点击工具栏上面的"绿色"播放图标，返回工作表界面查看结果如图。

5、我们从上面的结果可以看到1的组，2的组分别被标注了土黄和浅蓝色，当然如果需要标注其他的颜色，那么可以修改过程中的40,20参数，然后在执行绿色播放，就可以重新完成标注。

6、重新修改完参数以后执行后的效果如下，很实用的一段代码，希望在工作中能用上：