エクセルでの業務管理表の作成

質問

元データとなる"原本"シートには、A1=４／１　A2=４／２..と日付が入っています。
　その４／１の日付の行には出勤予定者がB1からE１までランダムに記載されています。

　これらを利用して１日１枚の出勤者表を作ろうと思っています。
　そこで１日ごとのシートを
Dim 名前 As Range
For Each 名前 In Worksheets("リスト").Range("A2：A12")
Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = 名前.Value
ActiveSheet.Range("A1") = 名前.Value
Next 名前
で作りましたが、それぞれのシートに出勤者を表示させるにはどうすれば良いですか？？

　簡潔に言うと、
　　　4/1のシートには原本シートの１行目
　　　4/2のシートには原本シートの２行目
と表示さえできれば、各シートまとめて参照セルを指定してしまえばできるかなと思っておりますが…どうぞよろしくお願いします。

回答No.1

SI299792 · ベストアンサー

何をしたいのかよかわかりません。文章とプログラムが全然違います。
プログラムは、「原本」でなく「リスト」から、シートを作って「原本」をコピーしてます。また、Range("A2：A12")のも分かりません。プログラムは無視します。
多分こうだろうと思います。
シート名に/ は無理なので、- にしました。
'
Sub Macro1()
'
　　Dim IY As Long
'
　　For IY = 1 To Cells(Rows.Count, "A").End(xlUp).Row
　　　　Sheets.Add After:=ActiveSheet
　　　　[A1].NumberFormatLocal = "m/d;@"
　　　　[A1:E1] = Sheets("原本").Range("A" & IY & ":E" & IY).Value
　　　　ActiveSheet.Name = Format([A1], "M-D")
　　Next IY
End Sub

回答No.2

Nouble

VBAでないと駄目ですか？
出勤者は何人ですか？
簡単な、関数で
出来ますよ？

Offset構文と
RandBetween構文を
お使いください