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
    

    関連記事

    ページ上部へ戻る