【マクロ】シート名を参照してのシートコピー

質問

当方マクロ初心者です。
同じブックの中にシートが　1-A、1-B、2-A、2-B、3-A、3-B・・・　という規則のシート名で並んでいます。
"-A"から同じ数字の"-B"へそれぞれシートをコピーしたいのですが、どのようなマクロを組んだらよいのでしょうか。
もう少し具体的に申し上げますと、
　・1-Aのシートから1-Bのシートへコピー
　・2-Aのシートから2-Bのシートへコピー
　・3-Aのシートから3-Bのシートへコピー　・・・・
という事をやりたいです。
もしくは、最初は"-A"のシートだけあって、
それぞれ新たにコピーでシートを作り、その名前を"-B"に変えるという方法でも良いです。
最終的には”1-A、1-B、2-A、2-B、3-A、3-B・・・”というシートが並んでいて、
数字が同じシートは全く同じ内容、というブックを作りたいです。
皆様の知恵を拝借させてください。
よろしくお願い致します。

回答No.1

n-jun · ベストアンサー

シートは全て名前が入って存在しているものとします。

Sub try()
Dim ws As Worksheet

For Each ws In Worksheets

If InStr(ws.Name, "-A") > 0 Then
ws.Cells.Copy Worksheets(Split(ws.Name, "-")(0) & "-B").Range("A1")
End If

Next
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
シートは”？－A"のみ存在し、シート追加・コピペ・名前変更をします。

Sub try2()
Dim ws As Worksheet

For Each ws In Worksheets

If InStr(ws.Name, "-A") > 0 Then
Worksheets.Add after:=Worksheets(ws.Name)
ws.Cells.Copy ActiveSheet.Range("A1")
ActiveSheet.Name = Split(ws.Name, "-")(0) & "-B"
End If

Next
End Sub

ご参考になれば。
"-A","-B"は半角ですので。

お礼

両方ともまさにやりたかった事ができました!!
業務がラクになります。どうもありがとうございました。

補足

ありがとうございます。こんなに早く回答が頂けるなんて思っていなかったので感動です!!
早速月曜日に会社で試してみたいと思いますので、取り急ぎお礼まで。