- ベストアンサー
エクセルのマクロで店舗の数値を発注書にまとめる方法は？
- エクセルのマクロを使用して、デスクトップの発注書集計フォルダ内の店舗1～店舗19のエクセルファイルから数値をまとめる方法を教えてください。
- 各店舗ファイルのシート名と発注書まとめのシート名が同じシートに、指定の範囲の値と書式を貼り付ける処理を実行したいです。
- 現在の集計作業は時間がかかるため、エクセルのマクロを活用し効率化したいです。どのような方法がありますか？
- kuromamedaifuku
- お礼率11% (1/9)
- Visual Basic
- 回答数2
- ありがとう数12
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
まとめファイルに以下のマクロを書いて実行します。 ・店舗ファイル名は 「店舗1.xls～店舗19.xls」としてます（数字は半角)。 ・店舗ファイルとまとめファイルは同一フォルダにある、とします。 機能 各店舗ファイルの中の全シートを参照し、まとめファイルの同一名シートにコピーします。 Sub Macro1() Dim WSname As String Dim i As Long, j As Long For i = 1 To 19 Workbooks.Open Filename:=ThisWorkbook.Path & "\店舗" & i & ".xls" For j = 1 To Worksheets.Count WSname = Worksheets(j).Name On Error Resume Next Worksheets(WSname).Range(Cells(59, i + 2), Cells(68, i + 2)).Copy Destination:=ThisWorkbook.Worksheet(WSname).Range(Cells(59, i + 2), Cells(68, i + 2)) Next j ActiveWorkbook.Close SaveChanges:=False Next i End Sub
その他の回答 (1)
- DreamyCat
- ベストアンサー率56% (295/524)
ＶＢＡで簡単にできると思いますが 店舗ごとの「各シート」についての説明と 発注書まとめの「各シート」についての説明をしたほうがいいでしょう。 （Ｂｏｏｋの中でそれぞれのシートがどうなっているのか） ＶＢＡでなくても、一度一般機能のリンク貼り付けを設定するだけで十分なのではありませんか？
