vlookupをfor構文でやりたいのですが､VBAが反応しません｡
(ｴﾗｰが出るわけでもなく､実行された結果なにも値が入らない)
dic2：複数列を"_"でつないでﾕﾆｰｸを算出したdictinary
val5：上記dicを分解した結果
ttｼｰﾄにすでに色々なﾕﾆｰｸのNAMEが表としてあり､この中にdicのNAMEもあります｡
目的はttｼｰﾄのNAMEの横列に､val5から参照した誕生日を入れる事です｡
'誕生日を入れる
key2 = dic2.keys
For i = 1 To UBound(key2)
val5 = Split(key2(i - 1), "_")
For j = 4 To tt.Columns(1).End(xlUp).Row
If val5(i, 1) = tt.Cells(j, 1) Then
If val5(i, 2) = tt.Cells(j, 5) Then
tt.Cells(j, 6).Value = val5(i, 3)
End If
End If
Next j
Next i
どこがﾀﾞﾒなのか教えてください｡
