VBA VookUP Копировать Вставить на основе столбца

Question

У меня есть названия компаний и тикеров в столбцах P и Q, и я пытаюсь получить voookup из столбца R в столбец P, а если значение соответствует, вставьте его в столбец T. У меня есть этот код voolup = "=VLOOKUP (R2, P: Q, 2, FALSE) "и пытается преобразовать его в VBA.

Dim i As Integer
Dim p, q, r, t As String

Sub esindia()

For i = 2 To 20000 Step 1

p = Sheet1.Range("p2" & i)
q = Sheet1.Range("q2" & i)
r = Sheet1.Range("r2" & i)
t = Sheet1.Range("t2" & i)

    If r = p Then
     t = r
     Sheet1.Range("t" & i) = r
   Else
     p = r
     Sheet1.Range("t" & i) = r
 End If
Next

End Sub

Я что-то здесь пропускаю, помощь очень ценится.

Answer 1

Блок With - много, и его можно разбить на отдельные переменные для лучшей читаемости, если вы хотите.

Разбивая его на части

1. ThisWorkbook
2. Sheets("Sheet1")
3. Range("T2:T" & LROw)
4. Где LRow =Range("T" & Rows.Count).End(xlUp).Row)

---

Sub MyVlookup()

With ThisWorkbook.Sheets("Sheet1").Range("T2:T" & Range("T"  & Rows.Count).End(xlUp).Row)
    .Formula = "=VLOOKUP(R2, P:Q, 2, 0)"
    .Value = .Value 'Remove this if you want the formula to show in the sheet
End With

End Sub