Excel VBAでの質問

質問

以前、質問に回答頂きそれを実行してうまくいったのですが、
特定のsheetだけsheetのつくりが違うため、
このsheetは毎回なにも処理をしないという処理を加えたいのですが、
（例えばsheet5とsheet8は処理をしない）
下記のコードにどのように付け加えればよいでしょうか？
わかるかた宜しくお願い致します。

Dim i As Long
For i = 1 To Worksheets.Count
　If Worksheets(i).Range("A1").Value = 10 Then Worksheets(i).Range("K1") = Worksheets(i).Range("A1")
　Worksheets(i).Range("A1:D80").ClearContents
Next
End Sub

回答No.1

kkkkkm · ベストアンサー

単純なやりかただと以下のような感じでいかがですか
Dim i As Long
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Sheet5" And Worksheets(i).Name <> "Sheet8" Then
If Worksheets(i).Range("A1").Value = 10 Then Worksheets(i).Range("K1") = Worksheets(i).Range("A1")
Worksheets(i).Range("A1:D80").ClearContents
End If
Next

回答No.2

N5200model05

Forループの中身を、if～end ifで囲って、if文の条件式でシート名をチェックして、例えば「sheet5とsheet8」じゃなければ、処理を行う、というのが手っ取り早いかと思いますが、いかがでしょう。

なお、シート名はWorksheets(i).Nameとかすれば、とれたと思います。