|
はじめまして。お世話になります。
下のように入力シートがあり、データシートにデータを転記したいのですが、
このデータだと、
【入力】の「月分」(B4)と【データ】の1行目で転記する月を決め、
【入力】の「該当者」(B3〜B7)と【データ】のA列で該当者を決め、
該当するセルに【入力】の「日付」(B2)を入れたいのですが、
【入力】
A B
1 月分 4月
2 日付 4月11日
3 該当者 東3
4 西2
5 南1
6 北3
7 東1
【データ】
A B C D E F
1 4月 5月 6月 7月 8月
2 東1 4/11
3 東2
4 東3 4/11
5 西1
8 西2 4/11
9 西3
10 南1 4/11
13 南2
14 南3
15 北1
16 北2
17 北3 4/11
こんな感じで作ってみたのですが、うまくいきません。
Sub test()
Dim gyou As Long
Dim retu As Long
Dim kazu As Long
For kazu = 2 To 17
gyou = WorksheetFunction.Match(Sheets("入力").Cells(kazu, 2), Sheets("データ").Range("D1:D65536"), 0)
retu = WorksheetFunction.Match(Sheets("入力").Range("B1"), Sheets("データ").Range("A1:IV1"), 0)
Sheets("データ").Cells(gyou, retu).Value = Sheets("入力").Range("B2").Value
Next
End Sub
ご指導よろしくお願いします。
|
|