遍历工作表六种方法

考试加油站

遍历工作表六种方法
1.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    sh.Select
    Call 设置A1格式
Next
End Sub
--------------------------------------
2.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    if sh.name <> 表名1 and sh.name <>表名 2 then
            sh.Select
            Call 设置A1格式
    end if
Next
End Sub
--------------------------------------
3.Sub 循环工作表()
    For Each sh In Worksheets
        If sh.Index > 2 Then    '限定工作表范围
       sh.Select
              Call 设置A1格式
        End If
    Next
End Sub
--------------------------------------
4.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If sh.Name Like "*" & "表" & "*" Then     '如果工作表名称包含“表”
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub
5.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If Not sh.Name Like "*" & "表" & "*" Then     '如果工作表名称不包含“表”
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub
6.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If sh.Name <> "价格表" And sh.Name <> "人员表" Then    '指定不参与循环的工作表名称，可一个或多个，自行增减
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub

zhhl4874

路过学习了啊，感谢哦！

ljx63426

学习了，感谢哦！

lcjy11185

感谢，谢天谢在

pp9257

谢谢 尤其是 4 5  

pp9257

正好遇到这个帖子

正好请教一个问题

如果工作表命名是无规律的，如“人员动态”“材料表”“月度汇总”“总汇总”……很多工作表

我把不参与循环的表名 写入 “表格名”的A列里面，这样的话不用修改代码，直接在“表格名”的A列加减即可？

代码怎么写呢？

aman1516

谢谢分享，学习了

jiminyanyan

字小点好一些...

TOO-布丁

谢谢分享，学习了

手抓高山羊

总结的不错！