excel学习库-激活EXCEL工作簿后，如何遍历工作表（一）

大家好，今日我们继续讲解VBA代码解决方案的二十三讲，这讲的内容和下讲的内容是连续性的，共介绍两个VBA中的两个十分重要的语句，今日给大家讲解的是For...Next 语句，以这个语句为核心，完成在Excel应用中遍历工作簿中所有的工作表的方法。 For...Next的意义： For...Next语句以指定次数来重复执行一组语句，语法： For counter = start To end [Step step] [statements] [Exit For] [statements] Next [counter] 参数：a) counter是必需的，用做循环计数器的数值变量。 b) start是必需的，循环计数器的初值。 c) end是必需的，循环计数器的终值。 d) step是可选的，环计数器的步长，缺省值为 1。 e) statements是可选的，放在For和Next之间的一条或多条语句，它们将被执行指定的次数。实例应用：下面我们使用For...Next 语句遍历工作簿中所有的工作表，代码如下所示。 Sub MyShCount1() Dim c,i As Integer Dim s As String c = Worksheets.Count For i = 1 To c s = s & Worksheets(i).Name & Chr(13) Next MsgBox "工作簿中含有”& c &”个工作表，如下:" & Chr(13) & s End Sub 代码解析： a) MyShCount1过程使用For...Next 语句遍历工作簿中所有的工作表，并用消息框显示所有的工作表名称。 b) 第4行代码根据Worksheet对象的Count属性返回工作簿中工作表的数量赋给变量c。应用于Worksheet对象的Count属性返回Worksheets集合中工作表的数量，语法如下：expression.Count c) 第5行代码开始For...Next 语句循环。 d) 第6行代码在For...Next循环中根据工作表的索引号取得所有工作表的名称赋给字符串变量s。 e) 第6行代码中“&”符号是连接两个字符的符号；Chr(13)是换行符号。 f) 在上述的语句中Dim 是声明语句，用于声明变量，Integer ，String是变量的类型。上述代码的截图：

此时EXCEL工作薄如下图，共含有5个不同名称的工作表：

我们再看代码的运行之后：

今日内容回向： 1 For...Next的意义是什么？ 2 Worksheet对象的Count属性的意义什么？ 3 For...Next是如何实现遍历工作表的？

一	二	三	四	五	六	日
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

激活EXCEL工作簿后，如何遍历工作表（一）2024-04-10 16:33:56