こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【Excel】シートのコピー

Excel2003を使用しています。

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

よろしくお願いします。

投稿日時 - 2007-04-12 02:44:05

QNo.2914344

暇なときに回答ください

質問者が選んだベストアンサー

こんばんは。

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

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

投稿日時 - 2007-04-12 03:18:41

お礼

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

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

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

投稿日時 - 2007-04-12 16:07:48

ANo.3

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

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

投稿日時 - 2007-04-12 02:50:59

お礼

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

投稿日時 - 2007-04-12 16:01:18

ANo.1

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

投稿日時 - 2007-04-12 02:49:53

お礼

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

投稿日時 - 2007-04-12 16:00:16

あなたにオススメの質問