📘 Excel逆引き事典

【VBA】全てのシートをエラー処理付きで抽出する方法

日々の業務では大量のデータを扱うことが多いと思います。その中で、特定の条件に基づいてデータを抽出することは非常に重要です。しかし手作業で行うと時間がかかりますし、ミスも増えてしまいます。そこでこの記事では、VBAを使用してExcelのすべてのシートから必要なデータを効率的に抽出する方法を紹介します。

サンプルコード

VBA 
Option Explicit
Sub ExtractDataFromAllSheets()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Integer
    
    Application.ScreenUpdating = False
    On Error GoTo ErrorHandler
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "Sheet1" Then '特定のシートを除外する場合
            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            For i = 2 To lastRow '最初の行はヘッダーとして扱う
                Debug.Print ws.Name & ": " & ws.Range("A" & i).Value '抽出したいデータを指定してください
            Next i
        End If
    Next ws
    Application.ScreenUpdating = True
    Exit Sub
ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation
    Resume Next
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

A.
シート名や列番号が正しいか確認してください。また、エラーハンドリングの部分で適切に対応しているか確認しましょう。
← 一覧に戻る