Таблица справочная для VLOOKUP VBA

Question

Я пытаюсь использовать таблицу в качестве ссылки для моей функции VLOOKUP с использованием VBA, но, похоже, она не работает.Может ли кто-нибудь помочь мне?Я предполагаю, что я не вызываю таблицы должным образом.

Некоторая информация:

1. Table_3 и Table1 являются установленными таблицами
2. Оба они не являются фиксированными (к нему добавляются данные)

Range("Table_3[Status]") = Application.WorksheetFunction.VLookup(Range("Table_3[Part_Number]"), Range("Table1[[#All];[Part Number]:[Status]]"), 3, False)

Answer 1

Вы можете попробовать:

Option Explicit

Sub test()

    Dim tbl1 As ListObject, tbl3 As ListObject

    'Set you sheet
    With ThisWorkbook.Worksheets("Sheet1")
        'Set tables
        Set tbl1 = .ListObjects("Table1")
        Set tbl3 = .ListObjects("Table_3")
        tbl3.ListColumns("Status").DataBodyRange.FormulaR1C1 = "=VLOOKUP([Part Number],Table1[#All],3,FALSE)"
    End With

End Sub