たくさんのファイルを集計！【Excelのレシピ】

複数の人に同じエクセルファイルを配って記入してもらい、後日エクセルファイルを回収するような業務はよくあることだと思います。

集めたファイルが少量であればひとつずつ開いて転記していくことは簡単かもしれませんが、数十人、数百人となると１日では終わりません。転記する項目が多ければさらに大変でしょう。

こんな時はマクロを使いましょう。数秒～数分で終わるでしょう。

今回は集めたエクセルファイルを自動で転記するマクロを紹介します。

マクロを使うための準備はこちら

ROUTE

1 やりたいこと
2 やりたいことをくわしく
3 つくりかた
4 改造ポイント
5 さいごに

やりたいこと

複数のエクセルを１つのエクセルにまとめる。

逆に１つのファイルからデータの分だけエクセルファイルを作りたい時はこちら

データの分だけファイルを作成！

やりたいことをくわしく

転記元ファイルの例。下記のように４つの項目が入力されたエクセルファイルが複数あると想定します。

複数のエクセルファイルを１つのエクセルファイルに転記する。

つくりかた

１．デスクトップにフォルダを１つ作ってください。

２．集めたエクセルファイルを、上記で作成したフォルダに入れてください。

注意点

ファイル名が同じだと、「上書き」されますので注意してください。
フォルダには、転記したいエクセルファイル以外のファイルをいれないようにしましょう。

３．転記先のエクセルファイルを作ります。エクセルを起動してください。※すでに転記先のエクセルファイルがある場合はそれを開いてください。

４．転記先のエクセルファイルが起動したら、「開発」タブの「Visual Basic」ボタンをクリックしてください。

開発タブがない場合は下のボタンをクリックして、設定をしてみてください。

便利に使うための準備！

５．起動した画面のメニューから「挿入」の「標準モジュール」をクリックしてください。

６．白いウィンドウが現れます。

７．白いウィンドウに、下記をコピーして貼り付けてください。

Sub tenki()
    Dim folder As String
    Dim file As String
    Dim book As Workbook
    Dim i As Integer
    i = 2
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            folder = .SelectedItems(1)
        End If
    End With
    
    file = Dir(folder & "\*.xlsx")
    
    Do While file <> ""
    
        Set book = Workbooks.Open(folder & "\" & file)
        
        ThisWorkbook.Worksheets("Sheet1").Range("A" & CStr(i)).Value = book.Worksheets("Sheet1").Range("B3").Value
        ThisWorkbook.Worksheets("Sheet1").Range("B" & CStr(i)).Value = book.Worksheets("Sheet1").Range("C3").Value
        ThisWorkbook.Worksheets("Sheet1").Range("C" & CStr(i)).Value = book.Worksheets("Sheet1").Range("D3").Value
        ThisWorkbook.Worksheets("Sheet1").Range("D" & CStr(i)).Value = book.Worksheets("Sheet1").Range("C4").Value
        
        file = Dir()
        i = i + 1
        
        book.Close
    Loop
    
End Sub

８．以上で完成です。マクロを動かす方法は、下記ボタンをクリックして確認してください。

便利に使うための準備！

９．マクロを動かすと、フォルダを選択するウィンドウが出ますので、「２．」で作ったフォルダを選んでください。

改造ポイント

この部分が転記しているプログラムです。主にこの部分を改造します。

ThisWorkbook.Worksheets("Sheet1").Range("A" & CStr(i)).Value = book.Worksheets("Sheet1").Range("B3").Value
ThisWorkbook.Worksheets("Sheet1").Range("B" & CStr(i)).Value = book.Worksheets("Sheet1").Range("C3").Value
ThisWorkbook.Worksheets("Sheet1").Range("C" & CStr(i)).Value = book.Worksheets("Sheet1").Range("D3").Value
ThisWorkbook.Worksheets("Sheet1").Range("D" & CStr(i)).Value = book.Worksheets("Sheet1").Range("C4").Value
ThisWorkbook.Worksheets("Sheet1").Range("E" & CStr(i)).Value = book.Worksheets("Sheet1").Range("C8").Value