シート1のA列(A5からスタート)、シート2のL列(L3からスタート)にそれぞれkey番号があります。
シート1のA列のkey番号とシート2のL列のkey番号が一致したら、シート1のZ列にシート2のL列で一致した行のAV列の値を入力したいです。
Dim t As Long , k As Long
Dim ws1 As Worksheet ,
ws2 As Worksheet
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
For t = 5 to xlw(最後まで)
For k = 3 to xlw(最後まで)
If ws1.Range("A" & t).Value
=ws2.Range("L" & k).Value Then
ws1.Range("z5" & t).Value
= ws2.Range("AV" & k).Value
Exit For
z = z+5
End If
Next
Next
#ws1.Rangeは数値がでていますが
ws2.RangeはRengeメゾットは失敗しました。Worksheetオブジェクトと記載されています。
すみません、どなた様か教えていただきたいです。iPhoneから入力しているためまたミスしていたら教えてください。
回答1件
あなたの回答
tips
プレビュー