遍历工作表六种方法 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 |
|
来自: jeamychu > 《Excel VBA》