【コピペでOK】フォルダ内の全エクセルに同じ処理を実行！VBAで複数ファイルを一括処理する方法！

Inuiwan

2日前

何十枚もあるエクセルの日付更新に手間がかかる…
フォルダ内のすべてのエクセルに同じ処理をする方法を知りたい！

たくさんのエクセルをいちいち開いて、同じ内容を入力するような作業って、時間的にもメンタル的にもつらいですよね。10個、20個とエクセルがあると、開いて閉じてを繰り返すだけの単純作業は、こなすだけで気がめいってしまいます。

そこで今回は、指定したフォルダ内にある「すべてのエクセルファイル」に対して、特定のセルへ一括で同じ内容を転記（入力）するVBAコードを紹介します。

「どのフォルダの」「どのセルに」「何を入れるか」をエクセルのシート上で直接指示できるVBAになっているので、ぜひ使い方も含めて確認してみてください！

【コピペOK】VBAで複数ファイルを一括処理するコード
【番外】すぐ使えるエクセルファイル
一括処理VBAの動作と結果の紹介
一括処理VBAの使い方について
まとめ

【コピペOK】VBAで複数ファイルを一括処理するコード

まずは、今回使用するVBAコードを紹介します。以下のコードをコピーして使用してください。詳しい使い方や設定方法は、次の項目で順番に解説しています。

Sub UpdateAllExcelFilesInFolder()
    Dim wsMacro As Worksheet
    Dim folderPath As String
    Dim fileName As String
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim rowIdx As Long

    ' このマクロが書かれているシートを変数にセット
    Set wsMacro = ThisWorkbook.ActiveSheet

    ' B1セルからフォルダのパスを取得
    folderPath = wsMacro.Range("B1").Value

    ' フォルダパスの最後に「\」がなければ付け足す
    If Right(folderPath, 1) <> "\" Then
        folderPath = folderPath & "\"
    End If

    ' フォルダ内の最初のエクセルファイルを探す
    fileName = Dir(folderPath & "*.xls*")

    ' 画面のちらつきを止めて処理を早くする
    Application.ScreenUpdating = False

    ' ファイルが見つかる限り処理を繰り返す
    Do While fileName <> ""

        ' エクセルファイルを開く
        Set wbTarget = Workbooks.Open(folderPath & fileName)
        ' 開いたファイルの1つ目のシートを対象にする
        Set wsTarget = wbTarget.Sheets(1)

        ' マクロシートの3行目から下に向かって順番に処理
        rowIdx = 3
        Do While wsMacro.Cells(rowIdx, 1).Value <> ""

            ' A列のセル番号へ、B列の記入内容を書き込む
            wsTarget.Range(wsMacro.Cells(rowIdx, 1).Value).Value = wsMacro.Cells(rowIdx, 2).Value

            ' 次の行へ進む
            rowIdx = rowIdx + 1
        Loop

        ' 上書き保存して閉じる
        wbTarget.Close SaveChanges:=True

        ' 次のファイルを探す
        fileName = Dir()
    Loop

    ' 画面の更新を元に戻す
    Application.ScreenUpdating = True

    MsgBox "すべてのファイルへの記入が完了しました！", vbInformation
End Sub