vlookupに基づく列の更新

Question

私は以下のコードをvlookupで使用しています。シート "UG list" col Aの値がシート "Latency" B colにあるかどうかをチェックします。

現在、一致するものがある場合は、シート「UGリスト」自体に値を貼り付けています。しかし、代わりに、 "UG"というテキストが一致する場合は、Qの "Latency"シートで更新する必要があります。

これを実装するための提案はありますか？

Sub vlookup() 
Dim cl As Range, Dic As Object 
Set Dic = CreateObject("Scripting.Dictionary"): Dic.Comparemode = vbTextCompare 
With Sheets("Latency") 
For Each cl In .Range("B2:B" & .Cells(Rows.count, "C").End(xlUp).Row) 
    If Not Dic.exists(cl.Value) Then Dic.Add cl.Value, cl.Row 
Next cl 
End With 
With Sheets("UG list") 
For Each cl In .Range("A2:A" & .Cells(Rows.count, "A").End(xlUp).Row) 
    If Dic.exists(cl.Value) Then cl.Offset(, 1).Value = cl.Value 
Next cl 
End With 
Set Dic = Nothing 
End Sub 

Answer 1

With Sheets("UG list") 
    For Each cl In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row) 
     If Dic.exists(cl.Value) Then 
      Sheets("Latency").Cells(Dic(cl.Value), 17) = "UG" 
     End If 
    Next cl 
End With 

17単にそれを使用してあなたが既に辞書に行番号を格納しているQ.ためのコラム＃です。