シートをコピーして シートに１から連番をふる

質問

（マスター）というシートがありまして、そのシートをコピーしてシート名に１からの連番をふる

マクロをお教え下さい。

Sub sub_CopySample()

Dim myLooP As Integer

For myLooP = 1 To 10
Sheets("マスター").Copy After:=Sheets(myLooP)
Next myLooP

For myLooP = 1 To 10
Sheets(myLooP + 1).Name = myLooP
Next myLooP

End Sub

これだと止まりません。
１シートづつ増やしたいのですが。

回答No.4

mar00 · ベストアンサー

>１シートづつ増やしたいのですが。
マクロを実行するごとに1シート増やしたいという事でしょうか。

ブックにマスターというシートしかない(1番のシートを増やす時だけ)が前提ですが

Sub Macro1()
myNumber = Worksheets.Count
Sheets("マスター").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = myNumber
End Sub

お礼

有り難うございました。
今、マクロを勉強中なので、簡単な質問で失礼しました。

回答No.3

keithin

＞１シートづつ増やしたいのですが。

こういうことを言いたかったのですか。

sub macro2()
　dim i
　i = 1
　worksheets("マスター").copy after:=worksheets(worksheets.count)
　on error goto errhandle
　activesheet.name = i
　exit sub

errhandle:
　i = i + 1
　resume
end sub

回答No.2

LHS07

im myLooP As Integer

For myLooP = 1 To 10
Sheets("sheet1").Copy After:=Sheets(myLooP)
Stop
Next myLooP

For myLooP = 1 To 10
Sheets(myLooP + 1).Name = myLooP
Next myLooP

End Sub

Ｓｔｏｐを入れればそこで止まりますが。

回答No.1

keithin

はて？

sub macro1()
　dim i as integer

　for i = 1 to 10
　’常にマスターからコピーする。複写シートに名前を付ける。
　　worksheets("マスター").copy after:=worksheets(worksheets.count)
　　activesheet.name = i
　next i
end sub

といった事でしょうか。