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

1、在Excel界面中初始化数据，对与如下数据。

实现功能：当性别为女时，标记为红色。

2、在VBE中编写如下代码：

Sub forEach()

Dim rg As Range

For Each rg In Sheet1.Range("b2:b10")

If rg = "女" Then rg.Interior.ColorIndex = 3

Next

End Sub

3、回到Excel界面中，插入形状--指定宏，指定刚刚定义的宏forEach；

4、运行该宏，运行结果如下图所示。

1、二、实现功能：操作工作表。

1、在Excel界面中初始化数据，对与如下数据。

实现功能：在第4列中输出工作簿中所有的表名。

2、在VBE中编写如下代码：

Sub foreachNext2()

Dim ws As Worksheet, n As Byte

n = 1

For Each wsh In Worksheets

    n = n + 1

    Sheet1.Cells(n, 4) = wsh.Name

Next

End Sub

3、回到Excel界面中，插入形状--指定宏，指定刚刚定义的宏foreachNext2；

4、运行该宏，运行结果如下图所示，在第4列中已经插入了所有工作表的名称。

4、综上所述，本文说明了for each....next在设置单元格属性颜色、工作簿中的应用。