はじめに
転記元ファイルの例。下記のように４つの項目が入力されたエクセルファイルが複数あると想定します。
複数のエクセルファイルを１つのエクセルファイルに転記します。
自動集計マクロのつくりかた
１．デスクトップにフォルダを１つ作ってください。
２．集めたエクセルファイルを、上記で作成したフォルダに入れてください。
注意点
ファイル名が同じだと、「上書き」されますので注意してください。
フォルダには、転記したいエクセルファイル以外のファイルをいれないようにしましょう。
３．転記先のエクセルファイルを作ります。エクセルを起動してください。
４．転記先のエクセルファイルが起動したら、「開発」タブの「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("E"&CStr(i)).Value= book.Worksheets("Sheet1").Range("C8").Value
１．転記元のエクセルファイルのシート名を変更する場合。
２．転記元のセル番地を変更する場合。
３．転記する項目を増やす場合。
３．１．行をコピペして改造します。
３．２．貼り付けた方を下記のように改造します。
３．３．上記の例であれば、１行増えて下図のように改造することになります。
注意点
このプログラムは１回の集計を想定しています。転記元のファイルが増えて再集計するときは転記先ファイルに記入されているデータを削除してからマクロを動かしましょう。