【VBA】開いている全ブックを完全一致で転記する方法

手作業でのデータ転記は時間がかかるだけでなく、ミスも起こりやすいです。この記事では、開いているすべてのワークブックから特定のシートを完全一致で転記するVBAマクロを作成し、効率的な業務処理を実現します。

サンプルコード

VBA

Option Explicit
Sub CopySheets()
    Dim wb As Workbook, ws As Worksheet
    Dim targetSheetName As String
    Dim lastRow As Long
    Dim i As Long
    
    ' 転記先のシート名を指定
    targetSheetName = "転記先"
    Application.ScreenUpdating = False
    For Each wb In Workbooks
        If Not wb.Name Like "*.xls*" Then ' 開いているすべてのブックについて処理するが、Excelアプリケーション自身は除外
            On Error Resume Next
            Set ws = wb.Sheets(targetSheetName)
            If Not ws Is Nothing Then
                lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 最終行を取得
                For i = 2 To lastRow ' A列から転記対象のデータを取得（1行目はヘッダーとして扱う）
                    ThisWorkbook.Sheets(targetSheetName).Cells(ThisWorkbook.Sheets(targetSheetName).Rows.Count, 1).End(xlUp).Offset(1, 0) = ws.Cells(i, 1)
                Next i
            End If
            On Error GoTo 0 ' エラー処理終了
        End If
    Next wb
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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