チームのメンバーの名前でシートを追加する

質問

こんばんは。宜しくお願いします。

毎月メンバー構成が変わるグループで日報を作りたいのですが、シートをメンバーの人数の数だけ自動追加していく方法を探しています。
また、その際のシート名はメンバーの名前にしたいと思ってます。

・メンバーリストは１枚目のシートに作成（A1にに氏名、以下A2と続く）
・２枚目のシートに日報のフォーマットを置きます
・メンバーの人数は一定ではなく毎月変動します

どなたかお知恵を貸してください。
お願いします。

回答No.1

hige_082 · ベストアンサー

Sub シート追加()
Dim 追加シート名 As String
Dim i As Integer
For i = 1 To Sheets("Sheet1").Range("a1").End(xlDown).Row
追加シート名 = Sheets("Sheet1").Cells(i, 1).Value
Sheets("日報のフォーマット").Copy After:=Sheets(Sheets.Count)
Sheets("日報のフォーマット" & " (2)").Name = 追加シート名
Next
End Sub

お礼

ありがとうございました。
おかげさまで解決し、非常に助かりました。