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

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

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

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

4、在编辑框中输入如下代码“Sub m()For Each rg In Range(&孥恶膈茯quot;a2:a60") If rg.朐袁噙岿Interior.ColorIndex = 3 And rg = "爱斯基摩犬" Then i = i + 1 End IfNextMsgBox "找到了" & i & "个红底爱斯基摩犬"End Sub”。

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

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