ＶＢＡのワークシートの追加とコピーなんですが。

質問

ＶＢＡのワークシートの追加とコピーなんですが。

sheet1の原紙をすべてコピーして、

新しくワークシートを追加してそのシートに貼り付けるプログラムを

教えてください。

回答No.3

watabe007 · ベストアンサー

With ActiveWorkbook
　　aaa = .Sheets("Sheet1").Cells(9, 4).Value 'aaaは社員
　　bbb = .Sheets("Sheet1").Cells(9, 5).Value 'bbbは４月
　　.Sheets("Sheet1").Copy After:=.Sheets(.Sheets.Count)
End With
ActiveSheet.Name = aaa & bbb

お礼

watabe007さんいつも本当にありがとうございます。

本当に助かりました。

またよろしくお願いします。

回答No.2

hana-hana3

シート丸ごとコピーなら下記で大丈夫です。

Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

補足

hana-hana3さん　ありがとうございます。

その追加したシートの名前を変えることが一番の悩みなんですが

いい方法ありませんか？

たとえば
シート１のセルに

　　aaa = Worksheets("シート１").Cells(9, 4) 　　　aaaは社員
bbb = Worksheets("シート１").Cells(9, 5)　　　 bbbは４月

ccc = aaa & bbb　　cccは社員４月

ワークシートの名前を社員４月にしたいのです。

回答No.1

watabe007

参考に
With ActiveWorkbook
　　.Sheets("Sheet1").Copy After:=.Sheets(.Sheets.Count)
End With

補足

watabe007さん　いつもありがとうございます。

その追加したシートの名前を変えることが一番の悩みなんですが

いい方法ありませんか？

たとえば
シート１のセルに

　　aaa = Worksheets("シート１").Cells(9, 4) 　　　aaaは社員
bbb = Worksheets("シート１").Cells(9, 5)　　　 bbbは４月

ccc = aaa & bbb　　cccは社員４月

ワークシートの名前を社員４月にしたいのです。