遍历工作表的方法
在工作中，经常需要遍历工作表，这里展示最基本的功能，查询工作表的个数，其余功能大同小异：
#方法一
Sub test()
Dim i As Integer
Dim s As Integer
For i = Worksheets.Count To 1 Step -1
s = s + 1
Next
MsgBox "共有" & s & "张表"
End Sub
#方法二
Sub test1()
Dim sht As Worksheet
Dim s As Integer
For Each sht In Worksheets
s = s + 1
Next
MsgBox "共有" & s & "张表"
End Sub
最后
以上就是糊涂板凳最近收集整理的关于VBA-遍历工作表的方法遍历工作表的方法的全部内容，更多相关VBA-遍历工作表内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复