別シートからの氏名の日付を入力

質問

シートAの表のような日付割り氏名欄があり個人がいつ出勤したか実績の月日をシートBの氏名ごとの出勤日を入力し回数を計上したいのですがどなたかExcel関数もしくはVBA関数の解る方よろしくお願いします。

回答No.9

watabe007 · ベストアンサー

>Worksheets("Sheet1").Range("範囲追加")に訂正したのですが。
>dateR = IIf(c.Row < 9, 2, 9)の数値を変え努力してますがうまくいきません。
すみません、範囲追加を想定していませんでした。
私の書いたコードでは修正が面倒なのでrealbeatinさんのコードを一部お借りして書き直してみました。
Sub Test2()
　　Dim c As Range, i As Long, myR As Variant, myC As Long
　　'日付の書かれた範囲を上からループ
　　For Each c In Worksheets("Sheet1").Range("C2:E2,C9:E9,C16:E16")
　　　　With Worksheets("Sheet2")
　　　　　　'Cは日付の書かれたセル
　　　　　　For i = 2 To 6
　　　　　　　　'日付の下に書かれた名前をシート2のB列より検索
　　　　　　　　myR = Application.Match(c.Offset(i).Value, .Columns(2), 0)
　　　　　　　　If IsError(myR) Then
　　　　　　　　　　'B列に名前が無ければ新たに登録
　　　　　　　　　　myR = .Cells(Rows.Count, "B").End(xlUp).Row + 1
　　　　　　　　　　.Cells(myR, "B").Value = c.Offset(i).Value
　　　　　　　　End If
　　　　　　　　'名前の行の右端の列を検索
　　　　　　　　myC = .Cells(myR, Columns.Count).End(xlToLeft).Column + 1
　　　　　　　　'名前の行の右端に日付を転記
　　　　　　　　.Cells(myR, myC).Value = c.Value
　　　　　　Next
　　　　End With
　　Next
End Sub

お礼

補足の回答も含めて有難うございます。新コード入力で可能になりました。
説明も記述していただき有難うございます。非常に助かり尚勉強になりました。今後も応用していきたいと思います。