![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
各支店(約200)からExcelシートで送信されてくる報告内容を別のシートに一気にまとめるマクロ等はないでしょうか?ご存知の方よろしくお願いします。
(例)
A支店
項目 aaa bbb ccc ddd eee
10 20 30 0 0
8 8 0 0 0
以下約300件
B支店
項目 aaa bbb ccc ddd eee
11 22 33 0 0
9 9 0 0 0
以下約300件
別シートに
項目 aaa bbb ccc ddd eee
10 20 30 0 0
8 8 0 0 0
11 22 33 0 0
9 9 0 0 0
以下省略 よろしくお願いします
No.1ベストアンサー
- 回答日時:
各シートの配置が分からないので仮定でお答えします。
1.各支店から来たExcelシートは全て同じフォルダー内にあるものとします。
2.データはすべてSheet1という名前のシートにあるものとします。
3.項目行は1行目、データ行は2行目から下へ、A列には空白のない状態で並んでいるものとします。
4.データをまとめるファイルも同じフォルダー内に作成し、まとめる先のシート名はTOTALとします.
5.マクロ実行前にまとめるファイルはいったん保存してください。
6.TOTALシートの1行目には項目が入っているものとします。
以上の前提で以下のマクロを実行してください。
Sub Test01()
Application.ScreenUpdating = False
fldPath = ThisWorkbook.Path & "\"
fname = Dir(fldPath & "*.xls") 'フォルダ内のExcelファイルを検索
Do Until fname = Empty '全て検索し終えると、fname = Empty となるので、その間以下を実行
If fname <> ThisWorkbook.Name Then
Workbooks.Open fldPath & fname '選択したファイルを開きます
'mx = Application.WorksheetFunction.Max(Sheets("Sheet1").Columns(1)) 'Sheet1の最大値を取得
lr = Sheets("Sheet1").Range("A65536").End(xlUp).Row 'Sheet1の最終行を取得
fr = ThisWorkbook.Sheets("TOTAL").Range("A65536").End(xlUp).Row + 1 'Totalの開始行を取得
Sheets("Sheet1").Rows("2:" & lr).Copy 'Sheet1のデータ行(2行目以降)をコピー
Application.DisplayAlerts = False
ActiveWorkbook.Close (False) '閉じる
Application.DisplayAlerts = True
ThisWorkbook.Sheets("TOTAL").Cells(fr, 1).Select 'Totalの開始行を選択
ActiveSheet.Paste 'データ貼り付け
Application.CutCopyMode = False
End If
fname = Dir '選択したフォルダ内の次のExcelファイルを検索
Loop '繰り返す
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ¥マークを含むパスの処理について(マクロ、または関数) 2 2022/12/25 02:11
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- SQL Server ACCESSで複数テーブルを結合して、リストを作る方法を教えてください。 2 2022/08/12 19:32
- その他(データベース) カラム上の重複を削除するクエリを教えてください 3 2022/04/12 14:11
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Visual Basic(VBA) 【VBA】特定の文字で改行(次の行)に行きたい。 3 2022/04/11 17:20
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- Perl perl このテキストファイルを簡単に配列に入れるには? 2 2022/04/27 20:24
- JavaScript 指定したパスが現URLに含まれていたら特定要素を削除するJavascriptのコードを教えてください 2 2023/04/27 17:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】sheet作成時にマク...
-
VBA シートの切り替えができな...
-
VBAでシートコピー後、シート名...
-
エクセル/マクロ Exit Subが実...
-
Excelシートの統合するマ...
-
マクロ実行ボタンがコピー出来ない
-
エクセル 「実行時エラー"13":...
-
フェイス・シートについて教え...
-
エクセルのワークシートの並べ替え
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
IEのActiveXダウンロードがブロ...
-
『MacBook OS X Mid 2007』初期...
-
win10プレビュー版をインスト時...
-
オペランドが足りませんとコメ...
-
SharePoint でサイトを作りたい...
-
OBSが起動できません
-
アクロバットリーダーが!
-
イラレデータをフォトショに書...
-
macbook にて 外付けHDDに デ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ExcelVBA】sheet作成時にマク...
-
エクセル/マクロ Exit Subが実...
-
フェイス・シートについて教え...
-
エクセル 「実行時エラー"13":...
-
マクロ実行ボタンがコピー出来ない
-
VBA シートの切り替えができな...
-
VBAでシートコピー後、シート名...
-
エクセルマクロ作成方法
-
エクセルのワークシートの並べ替え
-
【Excel VBA】指定のブックを指...
-
Excelユーザーフォームでシート...
-
マクロを使って家計簿も楽々に...
-
エクセルマクロの構文
-
Excel2000でシート上にボタンを...
-
Excelマクロによる単語リストの...
-
【エクセル】複数の文字を同時...
-
シート保護でオートフィルタ機...
-
Excelのシートを並び変え...
-
エクセル 複数シートのフィル...
-
アクセス97での罫線について
おすすめ情報