VBAを使用した、シートの自動作成とシート名付与

質問

お世話になります。

VBA初心者です。

この度、1ファイル30～50名の生徒名簿(頭文字毎に計10ファイルあります)を元にして
既存のテンプレートを元に個人シートを作成することになりました。

シート名は対象個人がわかるよう、「生徒番号_個人名」にしたいのです。

自動的にテンプレートをコピーして個人シートを作成したいのですが
どのように行えばよろしいでしょうか。

ファイル名：生徒名簿
シート名：名簿
A列…A4：タイトル「生徒番号」　A5より6ケタの生徒番号
E列…E4：タイトル「氏名」　E5より生徒氏名

テンプレートシート名：【テンプレート】生徒No._氏名
　※シート名が「生徒No._氏名」に変更されると、シート内の該当箇所にそれぞれの情報が入るように、
　　また生徒番号を元に付随する情報を参照関数で拾うようになっています。

お手数ですがお教え頂けると助かります。

回答No.1

keithin · ベストアンサー

テンプレートシートが一体どこにあるのか不明のため，生徒名簿ブックに含まれているとして。
生徒シートをどこに作りたいのか不明なので生徒名簿ブックに追加することにして。

sub macro1()
　dim r as long
　dim txt as string

　with worksheets("名簿")
　　for r = 5 to .range("A65536").end(xlup).row
　　　txt = .cells(r, "A").text & "_" & .cells(r, "E").value
　　　worksheets("【テンプレート】生徒No._氏名").copy after:=worksheets(worksheets.count)
　　　activesheet.name = txt
　　next r
　end with
end sub
みたいにします。

お礼

ありがとうございます！
希望していた通りの結果が得られてとても助かりました。
これを手作業で…と落ち込んでいたのでとてもうれしいです。

回答No.2

tsubuyuki

おっしゃる「テンプレート」が、エクセルにおける「テンプレート」だとして。
参考：http://office.microsoft.com/ja-jp/excel-help/HA010218874.aspx

Sub Sample()
　　　　For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
　　　　　　　　Sheets.Add(Type:="テンプレートのフルパス", _
　　　　　　　　　　　　after:=Worksheets(Worksheets.Count)).Name = _
　　　　　　　　　　　　Format(Sheets(1).Cells(i, 1), "000000") & "_" & Sheets(1).Cells(i, 5)
　　　　Next
End Sub

補足

ありがとうございます！
テンプレートとは同一ファイル内に用意された決められた書式のシートです。
記述が漏れてしまい申し訳ございません。