二つのシートのキー番号から値を突合させたい

シート1のA列（Ａ5からスタート)、シート2のＬ列(Ｌ3からスタート)にそれぞれkey番号があります。
シート1のA列のkey番号とシート2のＬ列のkey番号が一致したら、シート1のＺ列にシート2のＬ列で一致した行の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("Ｌ" & k).Value Then

ws1.Range("z5" & t).Value
= ws2.Range("AV" & k).Value
Exit For
z = z+5
End If
Next

#ws1.Rangeは数値がでていますが
ws2.RangeはRengeメゾットは失敗しました。Worksheetオブジェクトと記載されています。
すみません、どなた様か教えていただきたいです。iPhoneから入力しているためまたミスしていたら教えてください。

neconekocat

2021/07/12 03:57

コードはMarkdownの記法に従って書いてください。コードの挿入ってボタン押したら出てきます。あとこのコードですが、自分が書いたものをそのままコピペしてください。 Dim ws1 = Worksheetみたいなデタラメなコードが通るわけ無いですよね。

makox0105

2021/07/12 04:13

xlwの値は何ですか？またBB列じゃなくAV列ですか？ wr2.rangeじゃなく、ws2.rangeですよね？正しいコードを載せてください。

neconekocat

2021/07/12 06:11

スマホから入力してるからまともなコードが書けないというのであれば、PCで書ける環境になってから編集してください。かなりデタラメなコードですが、少なくともこのコードを(ある程度)正しく書き直した場合、ws2.Rangeのエラーは起きません。あなたが正しいコードを提示しない限り回答は不可能です。

makox0105

2021/07/12 08:27

上記の方と同様です。エラーは起きないと思います。

行動規範の内容に同意します

回答1件

ベストアンサー

VBA
1Sub org()
2    Dim t As Long, k As Long
3    Dim ws1 As Worksheet, ws2  As Worksheet
4    Set ws1 = Worksheets("Sheet1")
5    Set ws2 = Worksheets("Sheet2")    
6    For t = 5 To ws1.Range("A" & Rows.Count).End(xlUp).Row
7        For k = 3 To ws2.Range("L" & Rows.Count).End(xlUp).Row
8            If ws1.Range("A" & t).Value = ws2.Range("L" & k).Value Then
9                ws1.Range("Z" & t).Value = ws2.Range("AV" & k).Value
10                Exit For
11            End If
12        Next
13    Next
14End Sub

VBA
1Sub Sample()
2    Dim t As Long, k As Long
3    Dim ws1 As Worksheet, ws2  As Worksheet
4    Set ws1 = Worksheets("Sheet1")
5    Set ws2 = Worksheets("Sheet2")
6    Dim dic 'As Scripting.Dictionary
7    Set dic = CreateObject("Scripting.Dictionary")
8    With ws2
9        For k = 3 To .Range("L" & .Rows.Count).End(xlUp).Row
10            dic(.Range("L" & k).Value) = .Range("AV" & k).Value
11        Next
12    End With
13    With ws1
14        For t = 5 To .Range("A" & .Rows.Count).End(xlUp).Row
15            .Range("Z" & t).Value = dic(.Range("A" & t).Value)
16        Next
17    End With
18End Sub