关闭

遍历工作表六种方法

标签: VBA
20人阅读 评论(0) 收藏 举报
分类:
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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:192次
    • 积分:7
    • 等级:
    • 排名:千里之外
    • 原创:0篇
    • 转载:3篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档