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

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

sp

1

1

1

1

2

2

2

2

3

3

3

4

4

4

4

5

6

7

7

8

8

9

9

10

10

10

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

 

    Loop

 

End Sub

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

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

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

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