VBA查询指定底色的指定文字的数量的方法

1、打开表格，如下图所示，我们需要找到第一列中红底的“爱斯基摩犬”的数量。

2、同时按下FN和F11键，打开如下图所示的VBA编辑界面。

3、鼠标点击左边的表格标题后，右边的VBA编辑框弹出来。

4、在编辑框中输入如下代码“Sub m()

For Each rg In Range("a2:a60")
    If rg.Interior.ColorIndex = 3 And rg = "爱斯基摩犬" Then
    i = i + 1
    End If
Next
MsgBox "找到了" & i & "个红底爱斯基摩犬"
End Sub”。

5、点击上方工具栏的三角形运行按钮，如下图所示。

6、弹出如下图所示的统计结果。