ExcelVBAでワークシートのループに自作Collectionや配列を使ってみる

ワークシートをループさせて特定のシートだけ処理をする、っていうのを書く場合。もともとWorksheetsコレクションというのがあるので、それを使うことが多かったんですが、総数が多くて該当シートが少ないときなんか、こう書いてみたらどうかなーって思ったのがあったのでメモ的に。

全シートをループしながら該当シートをIfで分岐

Sub sample1()
  Dim tgtSheet As Worksheet
  For Each tgtSheet In Worksheets 'ブック内の全てのシートをループ
    If tgtSheet.Name = "aaa" Or _
       tgtSheet.Name = "bbb" Or _
       tgtSheet.Name = "ccc" Then '特定の名前のシート名だったら
      '処理
    End If
  Next
End Sub

Worksheetsコレクションを使ってすべてのシートをループさせて…、っていうよくある形。もちろんこれでも動くけど、シートの総数が多くて該当シートが少ない場合、なんか無駄が多いような…、と。

Collectionに該当シートを格納しておいてループ

Sub sample2()
  Dim wsCollection As Collection 'コレクションを宣言
  Set wsCollection = New Collection '生成
  
  wsCollection.Add Sheets("aaa") 'シートを追加
  wsCollection.Add Sheets("bbb")
  wsCollection.Add Sheets("ccc")
  
  Dim tgtSheet As Worksheet
  For Each tgtSheet In wsCollection 'コレクションをループ
    '処理
  Next
  
  Set wsCollection = Nothing '破棄
End Sub

コレクションを自分で作って、該当のシートを格納しておいて、そのコレクションをループさせちゃう。こっちのほうがスマートなんじゃないかなー。

追記：配列で指定してループ

Sub sample3()
  Dim tgtSheet As Worksheet
  For Each tgtSheet In Worksheets(Array("aaa", "bbb", "ccc")) 'ブック内の特定の名前のシートをループ
    '処理
  Next
End Sub

thom神からのお導きがありました。こっちのほうが楽！！！