エクセル・マクロ

質問

（同じフォルダの）複数のブックの中に複数のシートがあり、シートの名前が（一部）共通しています（例：赤組のＡ、赤組のＢ・・・）。別のブックに、同じ名称（例：赤組）を含むシートをコピーしてまとめたい（シート１が赤組のＡ、シート２が赤組のＢ・・・）のですが、どのようなマクロを記すれば良いでしょうか。宜しくお願いいたします。

回答No.3

keithin · ベストアンサー

１）どんなファイルがそもそもあるのか調べる
２）調べたファイルを開く
３）シート名を調べる
４）該当したらコピーする
といったマクロを書きます。

sub macro1()
　dim myPath as string
　dim myFile as string
　dim target as workbook
　dim myred as workbook
　dim w as worksheet
　mypath = "C:\test\"
　myfile = dir(mypath & "*.xls")
　on error goto addnewred
　do until myfile = ""
　set target = workbooks.open(filename:=mypath & myfile)
　for each w in activeworkbook.worksheets
　if w.name like "赤組*" then
　w.copy after:=myred.worksheets(myred.worksheets.count)
　end if
　next
　target.close false
　myfile = dir()
　loop
　exit sub
addnewred:
　w.copy
　set myred = activeworkbook
　resume next
end sub

＃実はこうでしたとか，ついでにあれもこれもどれもやってくださいとかは，一切無しで。

お礼

大変助かりました！ありがとうございました。

回答No.2

kokorone

私の前回の回答ですが、理解していただけたのでしょうか？
マクロの記録で、ある程度のマクロを作成して、それを発展させていけばＯＫです。

コピー元のブックのシート名の順序に規則性があれば、
繰り返し命令など、使用できますし、全てのシート名が明記されていませんので、
ここは、いわゆるベタなやり方がいいでしょう。
すべての処理が完成したら、次のステップとして、繰り返し命令などで、すっきりさせる
ことを考えます。
Windows("ブック１").Activate
Sheets("１組A").Select
Sheets("１組A").Copy Before:=Workbooks("１組.xls").Sheets(1)　

ここまでが、１ブロックです。２ブロック目移行は、最後のSheets(1)　をSheet(2)のように増やしていきます。
１組が終わったら、２組以降も、同じように記述します。

お礼

大変助かりました！ありがとうございました。

回答No.1

kokorone

やりたいことを私なりに以下のように解釈しました。
　　ブック１（１組）　シート１（Ａ）　シート２（Ｂ）　シート３（Ｃ）
　　ブック１（２組）　シート１（Ａ）　シート２（Ｂ）　シート３（Ｃ）
　　ブック１（３組）　シート１（Ａ）　シート２（Ｂ）　シート３（Ｃ）
　　　→集計ブック（集計）　シート１（１組Ａ）　シート２（２組Ａ）　シート３（３組Ａ）　シート４（１組Ｂ）・・・・・・

以上で宜しければ、
　　１）シートのコピー（コピー先：集計ブック）
　　２）コピーしたシート名の変更
をマクロの記録で作成してみてください。

以下、実行結果
Windows("１組.xls").Activate
Sheets("A").Select
Sheets("A").Copy Before:=Workbooks("集計.xls").Sheets(1)
Sheets("A").Select
Sheets("A").Name = "1組A"
Range("J32").Select
Windows("2組.xls").Activate
Sheets("A").Select
Sheets("A").Copy Before:=Workbooks("集計.xls").Sheets(2)
Sheets("A").Select
Sheets("A").Name = "２組Ａ"
Range("O11").Select

補足

早速のご教授、ありがとうございます。
実行したい事は、以下のようになります。
宜しくお願いいたします。

同じフォルダ内の、
ブック１　　シート１（１組Ａ）　シート２（３組Ｂ）　シート３（４組Ｃ）・・・
ブック２　　シート１（１組Ｄ）　シート２（２組Ｅ）　シート３（３組Ｆ）　シート４（４組Ｇ）・・・
ブック３　　シート１（２組Ｈ）　シート２（５組Ｉ）・・・
ブック４　　シート１（１組Ｊ）　シート２（３組ｋ）　シート３（５組Ｌ）・・・
ブック５～５０くらい・・・

→　集計（シート名の一部が“１組”であるシートを、別ブック１組にコピーする）
別ブック１組　　シート１（１組Ａ）　シート２（１組Ｄ）　シート３（１組Ｊ）・・・

※別ブック２組 以降、以下同文。別ブックは、１組から１５組まであります。