検索対象外シート追加

複数シートを電話番号で検索するマクロで質問です。
下記で検索というシート以外で電話番号を検索します。
これに集計というシートも検索対象外にするにはどうすればよいでしょうか？
宜しくお願い致します。


Sub 電話番号()
Dim i As Long, j As Long, keyword As String, Lastrow As Long
keyword = Worksheets("検索").Cells(3, 3).Value
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "検索" Then
Lastrow = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
For j = 4 To Lastrow
If Worksheets(i).Cells(j, 8).Value = keyword Then
Worksheets("検索").Activate
Lastrow = Worksheets("検索").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("検索").Cells(Lastrow + 1, 1).Value = Worksheets(i).Cells(j, 1).Value
Worksheets("検索").Cells(Lastrow + 1, 2).Value = Worksheets(i).Cells(j, 2).Value
Worksheets("検索").Cells(Lastrow + 1, 3).Value = Worksheets(i).Cells(j, 3).Value
Worksheets("検索").Cells(Lastrow + 1, 4).Value = Worksheets(i).Cells(j, 4).Value
Worksheets("検索").Cells(Lastrow + 1, 5).Value = Worksheets(i).Cells(j, 5).Value
End If
Next j
End If
Next i
End Sub

No.2 回答者： fujillin 回答日時： 2021/04/16 23:09

No1です

＞集計シートの除外はどのように付け加えれば宜しいのでしょうか？
「同様」と書いたつもりですけれど？？

If Worksheets(i).Name <> "検索" And Worksheets(i).Name <> "集計" Then

この回答へのお礼

有り難うございました。

お礼日時：2021/04/17 00:22

No.1 回答者： fujillin 回答日時： 2021/04/16 22:24

こんばんは

＞これに集計というシートも検索対象外にするにはどうすればよいでしょうか？
「検索」シートと同様に除けばよいですね。

＞For i = 1 To Worksheets.Count
＞If Worksheets(i).Name <> "検索" Then
ブック内のワークシート全部に対してループしていますが、If～～で「検索」シートを除外しています。
同様に、「集計」シートも除外するようにすれば宜しいでしょう。

この回答へのお礼

回答ありがとうございます。
集計シートの除外はどのように付け加えれば宜しいのでしょうか？

お礼日時：2021/04/16 22:30