EXCEL VBA 在for循环中怎么跳过指定sheet？

Question

有几十个sheet页，在执行到sheet1，sheet3，sheet6，sheet8中不执行程序，要怎么进行判断
sub text （）
Dim a
For a = 1 To 30
Sheets(a).Activate
Range("G3).Copy Range("F3")
next
end sub

Answer 1

sub text （）
Dim a
For a = 1 To 30
if a<>1 and a<>3 and a<>6 and a<>8 then
Sheets(a).Activate
Range("G3).Copy Range("F3")
end if
next
end sub

Answer 2

Sub text()
Dim a, m As String
For a = 1 To 30
m = Sheets(a).Name
If m <> "sheet1" And m <> "sheet3" And m <> "sheet6" And m <> "sheet8" Then
Sheets(a).Activate
Range("G3").Copy Range("F3")
End If
Next
End Sub本回答被提问者采纳