No.2ベストアンサー
- 回答日時:
40のブックがそれぞれにシートをいくつか持っているのだとしたら、これはVBAでやるほかなさそうですね。
試してみてください。
まとめ用のブックに下記のVBAを仕組み、まとめられるブックと同じフォルダにいれて、いったん保存してから実行してみてください。
まとめられる方のブックの名前、件数、シート数は別に問いません。
フォルダー内のまとめ用ブック以外の全ブックの、全シートをまとめ用ブックに複写するマクロです。
1.まとめ用のブックで、Altキー+F11キーでVisualBasicEditorを呼び出します。
2.メニューから挿入、標準モジュールで出てきたコードウィンド(右側の白い広い部分)に以下のコード(Sub~End Sub)をコピペします。
Sub consolid()
Application.ScreenUpdating = False '画面更新を一時停止
Set mb = ThisWorkbook
myfdr = ThisWorkbook.Path
fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelファイルを検索
Do Until fname = Empty '全て検索し終えると、fname = Empty となるので、その間以下を実行
If fname <> mb.Name Then 'ファイル名がこのファイルじゃなければ
Set wb = Workbooks.Open(myfdr & "\" & fname) '選択したファイルを開く
wb.Worksheets.Copy Before:=mb.Sheets(mb.Sheets.Count) 'コピーしてまとめ用ブック末尾に置く
wb.Close '選択したファイルを閉じる
n = n + 1 'ブック数をカウント
End If
fname = Dir '選択したフォルダ内の次のExcelファイルを検索します
Loop '繰り返す
Application.ScreenUpdating = True '画面更新一時停止を解除
MsgBox n & "件のブックをまとめましました。"
End Sub
3.Alt+F11キーでワークシートへもどります.
4.メニューから、ツール、マクロ、マクロで出てきたマクロ名(consolid)を選択して実行
これでオリジナルはそのままにして、まとめ用のブックに他の全シートが複写されます。
No.1
- 回答日時:
40個ぐらいのシートを一つのファイルにあわせるだけなら、いくつか同時に開いてドラッグして合成することを繰り返すだけでたいして手間はかかりません。
それとも同じ書式のデーターを一つのシートに合成することをお望みなのでしょうか。質問が少し曖昧なので、詳しく書いてください。
この回答へのお礼
お礼日時:2006/05/31 21:54
私の質問があいまいですいませんでした。
40程のファイルに複数のシートがあって、その作業を頻繁に行わねばならなかったので質問させていただきました。
おかげさまでmerlionXX様に教えていただいたマクロでうまくいきました。せっかく回答いただきましたがもうしわけございません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) エクセルで別ファイルから一つのシートだけをコピーする方法(ファイル間でシートだけをコピー) 1 2022/12/01 19:28
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) セルの値からファイルを複数作りたい 2 2022/10/06 12:42
- Excel(エクセル) 記録マクロのみでできますか? 7 2022/08/07 20:38
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) エクセルで、ファイルの分割 と ファイルの集約 1 2022/08/28 08:58
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- PDF Wordやエクセルのタブ全てを順序よく並べて、すべて一つのPDFファイルに統合したいです。何か方法あ 3 2022/12/29 21:32
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでブックを非表示で開いて処...
-
エクセルで参照しているデータ...
-
エクセルを共有するとPCによっ...
-
WorkBooksをオープンさせずにシ...
-
エクセルで複数のシートを別フ...
-
エクセルの関数 ENTERを押...
-
エクセルで「ディスクがいっぱ...
-
エクセルでウィンドウの枠固定...
-
複数ファイルから特定シートの...
-
エクセルで開いていないbookの...
-
vbaでpdfを開いて1ページ目のみ...
-
Excel起動時に特定のワークシー...
-
Excelで複数ブックの同一セルに...
-
エクセルの複数シートをCSV...
-
Excelファイルをダブルクリック...
-
エクセルでSheetの数は最大限ど...
-
【マクロ】【VBA】別ブックへの...
-
エクセルで50行ごとに区切った...
-
Excelで拡張子の後に数字が……何...
-
エクセルの特定シートを完全に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルを共有するとPCによっ...
-
エクセルで参照しているデータ...
-
WorkBooksをオープンさせずにシ...
-
Excel(2010)のフィルターが保...
-
フォルダ内の複数ファイルから...
-
Excelでブックの共有を掛けると...
-
複数ファイルから特定シートの...
-
エクセルで「ディスクがいっぱ...
-
Excelで複数ブックの同一セルに...
-
エクセルファイルを開かずにpdf...
-
エクセルで別ブックをバックグ...
-
エクセルで50行ごとに区切った...
-
外部ブック参照が#REF!になって...
-
エクセル2016です。「ブッ...
-
エクセルの関数について教えて...
-
エクセルシートの一部を送りたい
-
ブックのピボットを別ブックに...
-
Excel起動時に特定のワークシー...
おすすめ情報