遍历工作表六种方法

香川群子 · 发表于 2012-6-20 10:09

有六种那么多么？我只看到一种。For Each sh In Worksheets

Moneky · 发表于 2012-6-20 10:53

pp9257 发表于 2012-4-26 19:03
正好遇到这个帖子

正好请教一个问题

Sub test()
Dim sht As Worksheet
Dim arr
Dim HV As Boolean, i As Long
With Worksheets("表格名") '把不需要循环的的表格名载入一个数组arr
arr = .Range(.Cells(1, 1), .Cells(.[a1].End(xlDown).Row, 1))
End With
'下面历遍工作表
For Each sht In ThisWorkbook.Worksheets
HV = True '是否操作的标志
For i = LBound(arr) To UBound(arr) '在arr数组中历遍,检查当前表格是否属于不循环的表
If sht.Name = arr(i, 1) Then HV = False: Exit For '如果表明在arr中,则将操作标志设定为false且退出循环
Next
If HV Then '根据操作标志判断当前表是否需要操作
'需要对表格的操作写在这里
End If
Next
End Sub

复制代码

风云际会6 · 发表于 2012-6-20 10:59

谢谢分享，学习了

JLF2003 · 发表于 2012-6-20 11:43

一种方法，六种形式。分享无限好！

kuangben8 · 发表于 2013-3-30 20:34

感谢分享，正好需要这些。

AVEL · 发表于 2013-3-31 10:33

方法只有一种。。
其余都是针对条件的判断而已

海狼Ｉ · 发表于 2013-6-7 14:12

十分感谢，今天弄这个弄了半天没弄好，还好看到了这个贴。

引子玄 · 发表于 2013-6-7 15:33

总结得好,有条理

yepulu · 发表于 2013-12-25 14:23

值得借鉴。

convind · 发表于 2014-8-23 00:23

谢谢分享，辛苦了~~~

		自动登录	找回密码
密码			免费注册

[分享] 遍历工作表六种方法