お世話になります。
一つのフォルダに複数のファイルが入っているのですが、その全てのファイルのZ列の数字を、一つのファイルに貼り付けていくマクロを教えて頂きたいです。
ただし、複数のファイルは県ごとに分かれており、貼り付け先のファイルはA列が東京、B列が大阪、というようになっているので、東京のファイルのZ列は貼り付け先ファイルのA列へ、大阪のファイルのZ列は貼り付け先ファイルのB列へ、という風にファイルごとに貼り付ける列を右へ一つずつずらしていきたいのです。
■県ごとのファイルが入っているフォルダ名:集計用フォルダ
■集計用フォルダに入っているファイル名:東京、大阪、名古屋、福岡、北海道
■上記の県のファイルのシート名:作業シート(どの県もシート名は作業シートとなっており、それ以外のシートは存在しません。)
■貼り付け先ファイル名:集計用ファイル
■貼り付け先ファイルのシート名:集計シート
また、貼り付け先のファイルは現在デスクトップへ保存しているのですが、マクロにて上記の貼り付け作業を行う場合、県ごとのファイルが入っているフォルダに一緒に格納した方が良いのでしょうか?
マクロの初心者なもので、知識が至らず、どなたかお詳しい方にお伺いできればと思います。
情報が足りない部分があれば追記致しますので、ご連絡ください。
よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに作成してください。
Const folderA As String = "d:\goo\excel\goo361" '集計用フォルダ
の行は、あなたの環境にあわせて適切に設定して下さい。
---------------------------------------
Option Explicit
Sub 集計シート貼り付け()
Const folderA As String = "d:\goo\excel\goo361" '集計用フォルダ
Dim files As Variant
Dim bname As String
Dim i As Long
Dim crange As String
files = Array("東京", "大阪", "名古屋", "福岡", "北海道")
For i = 0 To UBound(files)
bname = files(i) & ".xls"
Workbooks.Open folderA & "\" & bname
Worksheets("作業シート").Select
Columns("Z:Z").Select
Selection.Copy
ThisWorkbook.Activate
Worksheets("集計シート").Select
crange = Chr(Asc("A") + i) & ":" & Chr(Asc("A") + i)
Columns(crange).Select
ActiveSheet.Paste
Workbooks(bname).Application.CutCopyMode = False
Workbooks(bname).Close SaveChanges:=False
Next
MsgBox ("完了")
End Sub
早速のご回答、本当にありがとうございました!
会社のパソコンからこちらのサイトが見れず、思い出しながら自宅のパソコンから質問させて頂きました。。
月曜日に早速作成してみます!
本当に助かりました。ありがとうございます(;_:)
No.1
- 回答日時:
補足要求です。
1.集計用フォルダに入っているファイル名:東京、大阪、名古屋、福岡、北海道のファイルの拡張子は".xlsx"ですか?
(マクロは拡張子まで含めて指定するので正確な拡張子を知っておく必要がある為です)
2.貼り付け先の列ですが
A列:東京
B列:大阪
C列:?
D列:?
E列:?
上記の?の部分はどこの県でしょうか。(名古屋、福岡、北海道であることは判りますが、順番が不明)
>また、貼り付け先のファイルは現在デスクトップへ保存しているのですが、マクロにて上記の貼り付け作業を行う場合、県ごとのファイルが入っているフォルダに一緒に格納した方が良いのでしょうか?
回答:貼り付け先のファイルにマクロを格納する前提ですが、このファイルは、デスクトップのままで構いません。
お時間を頂きありがとうございます。
補足させて頂きます。
1.集計用フォルダに入っているファイル名(東京・大阪・名古屋・福岡・北海道)の拡張子は”xls”です。
2.貼り付け先は、
A列:東京
B列:大阪
C列:名古屋
D列:福岡
E列:北海道
になります。
貼り付け先のファイルはデスクトップのままで大丈夫なんですね!
色んなサイトさんを拝見するものの、貼り付け先がいまいち良く分からなかったので、助かります。
お忙しい所恐れ入りますが、何卒よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- システム vba シートの追加について 2 2023/05/17 15:58
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- Excel(エクセル) Excel使用前提 同じフォルダ内にあるファイルの集約等をマクロでできますか 4 2022/09/06 19:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
エクセルでファイルを開かずに...
-
複数のtxtの特定部分を抽出し、...
-
Excel2000でフォルダを移動する...
-
エクセルで他のファイルのセル...
-
CPU使用率が100%となっ...
-
マクロで別ファイルのシートコ...
-
MATLABでcsvファイルを読み込も...
-
PhotoshopでExcelのファイルが...
-
Excel 2枚目のブックが開かな...
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
PDFの請求明細をエクセルにしたい
-
EXCELで上書き保存しないと反映...
-
いきなりPDFでPDFファイルを開...
-
エクセル 列の最大数はIV?
-
エクセルでファイルを閉じても...
-
エクセル関数の解読サイトなん...
-
共有しているEXCELシートのアク...
-
エクセルを上書き保存したのに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
エクセルでファイルを開かずに...
-
Excel 2枚目のブックが開かな...
-
CPU使用率が100%となっ...
-
エクセルで他のファイルのセル...
-
マクロで別ファイルのシートコ...
-
複数のtxtの特定部分を抽出し、...
-
PhotoshopでExcelのファイルが...
-
ファイル内にある数字の出現回...
-
MATLABでcsvファイルを読み込も...
-
エクセルマクロ 数式【VLOOKUP...
-
one drive からExcel onlineを...
-
excel ファイル
-
マクロでシートのデータをコピ...
-
EXCELで関数が使えなくなった?
-
エクセルマクロ(vba)のFSO.Open...
-
エクセルでハイパーリンクが貼...
-
エクセル(Excel)で別ファイルと...
-
エクセル保存後に別のブックの...
-
複数ファイルの同じ行のデータ...
おすすめ情報