Excel VBA 複数シートをループして処理する

2017-8-14
Excel, VBA

Excel の複数シートを一括で同じ処理をしたい時は、
「For Each」　か　「For」で処理する。
今更かん満載ですが、備忘で。。

For Each の場合

Dim oSheet As Object
 
For Each oSheet In ThisWorkbook.Worksheets

    Debug.Print "For Each で「" & oSheet.Name & "」シートの処理実行"

    oSheet.Select
　　　　
    '繰り返したい処理
　　　　：
　　　　：
　　　　：
        
Next

For の場合

Dim iCnt As Integer
  
For iCnt = 1 To ThisWorkbook.Worksheets.Count
    
    Debug.Print "For で「" & Sheets(iCnt).Name & "」シートの処理実行"
 
    Sheets(Sheets(iCnt).Name).Select
    
    '繰り返したい処理
　　　　：
　　　　：
　　　　：  
Next