【VBA】全てのシートを確認メッセージを出さずに配列に格納する方法

日々の業務で大量のデータを扱う際、シート間での一括処理は効率化の鍵となります。しかし、通常の方法では各シートごとに確認メッセージが出力され、作業が中断してしまいます。この記事では、VBAを使用して全てのシートを配列に格納する方法を紹介します。これにより、一括処理が可能になり、業務効率化が図れます。

サンプルコード

VBA

Option Explicit
Sub StoreSheetsInArray()
    Dim ws As Worksheet, arr() As Variant
    Dim i As Integer, numSheets As Integer
    
    '警告メッセージを表示しないように設定
    Application.DisplayAlerts = False
    
    'シート数をカウント
    numSheets = ThisWorkbook.Sheets.Count
    
    '配列の初期化
    ReDim arr(1 To numSheets)
    
    '全てのシートを配列に格納
    i = 1
    For Each ws In ThisWorkbook.Worksheets
        arr(i) = ws.Name
        i = i + 1
    Next ws
    
    '警告メッセージを表示するように設定に戻す
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。