Excel VBA-----之for each.....next用法

1、在Excel界面中初始化数据，对与如下数据。实现功能：当性别为女时，标记为红色。

2、在外狒芙梨VBE中编写如下代码：Sub forEach()Dim rg As RangeFor Each rg In Sheet1.Range("b2:b10"稆糨孝汶;)If rg = "女" Then rg.Interior.ColorIndex = 3NextEnd Sub

3、回到Excel界面中，插入形状--指定宏，指定刚刚定义的宏forEach；4、运行该宏，运行结果如下图所示。