Excel VBA实例教程 #023：遍历工作表的方法

Excel VBA实例教程 #023：遍历工作表的方法.txt如果中了一千万，我就去买30套房子租给别人，每天都去收一次房租。

哇咔咔~~充实骑白马的不一定是王子，可能是唐僧；带翅膀的也不一定是天使，有时候是鸟人。

本文由2583774贡献
doc文档可能在WAP端浏览体验不佳。

建议您优先选择TXT，或下载源文件到本机查看。

在 Excel 应用中经常需要遍历工作簿中所有的工作表，有以下两种方法可以实现。

1、使用 For……Next 语句、使用 For……Next 语句遍历工作簿中所有的工作表，如下面的代码所示。

1. Sub ShCount1()
2.
3.
4.
5.
6.
7.
8.
9. Next MsgBox "工作簿中含有以下工作表:" & Chr(13) & s Dim c As Integer Dim i As Integer Dim s As String c = Worksheets.Count For i = 1 To c s = s & Worksheets(i).Name & Chr(13)
10. End Sub 复制代码
代码解析： ShCount1 过程使用 For……Next 语句遍历工作簿中所有的工作表，并用消息框显示所有的工作表名称。

第 5 行代码根据 Worksheet 对象的 Count 属性返回工作簿中工作表的数量赋给变量 c。

应用于 Worksheet 对象的 Count 属性返回 Worksheets 集合中工作表的数量，语法如下： expression.Count 第 6 行代码开始 For……Next 语句循环。

For……Next 语句以指定次数来重复执行一组语句，语法如下： For counter = start To end [Step step] [statements] [Exit For] [statements] Next [counter]
? ? ? ?
参数 counter 是必需的，用做循环计数器的数值变量。

参数 start 是必需的，循环计数器的初值。

参数 end 是必需的，循环计数器的终值。

参数 step 是可选的，环计数器的步长，缺省值为 1。

参数 statements 是可选的，放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。

第 7 行代码在 For……Next 循环中根据工作表的索引号取得所有工作表的名称赋给字符串变量 s。

运行 ShCount 过程结果如图 23 1 所示。

图 1 取得所有工作表名称 2、使用 For Each……Next 语句、使用 For Each……Next 语句遍历工作簿中所有的工作表，如下面的代码所示。

1. Sub ShCount2()
2.
3.
4.
5.
6.
7. Next MsgBox "工作簿中含有以下工作表:" & Chr(13) & s Dim Sh As Worksheet Dim s As String For Each Sh In Worksheets s = s & & Chr(13)
8. End Sub 复制代码
代码解析： ShCount2 过程使用 For Each……Next 语句遍历工作簿中所有的工作表，并用消息框显示所有工作表名称。

第 4 行代码使用 For Each……Next 语句遍历Worksheets 集合中所有元素。

For Each……Next 语句针对一个数组或集合中的每个元素，重复执行一组语句，语法如下： For Each element In Group [statements] [Exit For] [statements]
Next [element]
? ?
参数 element 是必需的，用来遍历集合或数组中所有元素的变量。

参数 group 是必需的，对象集合或数组的名称。

参数 statements 是可选的，针对对象集合或数组中的每一项执行的一条或多条语句。

第 5 行代码将返回的工作表的名称赋给字符串变量 s。

运行 ShCount2 过程结果如图1 所示。

本TXT由“文库宝”下载:/wenkubao。