【Excel】シートのコピー

質問

Excel2003を使用しています。

Sheet1をSheet1のA1セルに入力されている数字の枚数分、自動でコピーできないでしょうか？
例えば、Sheet1のA1セルに『10』と入力されていたら、Sheet1を10枚作成(コピー)したいのですが、どのようにすればいいでしょうか？
また、このシートのコピーを複数のブックで一度にできないでしょうか？

よろしくお願いします。

回答No.3

Wendy02 · ベストアンサー

こんばんは。

たとえば、こんな風かな。
複数のブックに一度にするなら、コードをまとめてしまえばよいです。
また、コピーしたシートは前なのか後ろなのかはわかりませんが、一応、一般的な後ろにしてあります。

Sub SheetCopy()
Dim i As Integer
Dim n As Integer
　n = Worksheets("Sheet1").Range("A1").Value
　For i = 1 To n
　 Worksheets("Sheet1").Copy After:=Worksheets(Sheets.Count)
　Next i
End Sub

Sub SheetCopyToOtherbooks()
'別のブックにコピー
Dim i As Integer
Dim n As Integer
Dim wb As Workbook
　n = Worksheets("Sheet1").Range("A1").Value
　Set wb = Workbooks("SampleBk2.xls") '別のブック
　For i = 1 To n
　 ThisWorkbook.Worksheets("Sheet1").Copy After:=wb.Worksheets(Sheets.Count)
　Next i
　Set wb = Nothing
End Sub

お礼

Wendy02 さん、こんにちは。
いつもお世話になっています。

おかげさまで、無事解決しました。
今回教えていただいたコードが参考になり、別のマクロも作成することができました。
まだまだ、勉強不足でコードを書くのに、すご～く時間がかかってしまいますが…(^^ゞ

ありがとうございました！

回答No.2

kapox

マクロなら、出来るような気がする。
マクロは、あんまり、詳しくないから、説明できないけど、
HPとかで調べて、やれば、シート複数コピーは簡単に出来ると思う。

お礼

アドバイスありがとうございます。
No.3のWendy02 さんからいただいた回答で解決しました。

回答No.1

hel318

Sheetのコピーはマクロで可能かと思います。しかし異なるブック間では難しいと思います。Excelの達人なら方法を知ってるかも知れません。ゴメンなさい私は知りません。

お礼

書き込みありがとうございます。
No.3のWendy02 さんからいただいた回答で解決しました。