VBA：使用帶有動態查找值的 VLOOKUP 公式

Question

在工作表上執行格式設置后，我試圖將 VLOOKUP 公式嵌入到我的最后一列中。 我的查找值用於具有以下列標題的列：“公司狀態”。 這是我目前的流程：

1. 使用列標題查找列號：“公司狀態”：

   CompanyStateColumnNumber = WorksheetFunction.Match("Company State", ws.Range("1:1"), 0)

2. 聲明查找范圍。 在這種情況下，它存在於非活動工作簿/工作表的工作表/工作簿中。 因此，我使用（我已經將 TZsrcRange 聲明為 Range 類型）來引用它：

   Set TZsrchRange = TemplateWS.Range("A:C")

3. 現在，我試圖將 vlookup 嵌入到我的最后一列（我在工作表中找到了我的最后一列，它存儲在變量“NewestLCol”中。我想將它嵌入到列中直到最后一行（存儲在變量中） “最后一行”）：

    For x = 2 To LastRow Set dynamic_lookup_value = Cells(x, CompanyStateColumnNumber) Cells(x, NewestLCol).Formula = " =VLOOKUP(" & _ dynamic_lookup_value.Address(0, 0) & _ ", Templatews.Range(A:C).Address(0,0),3, FALSE)" Next x

4. 現在，當我運行它時，它沒有嵌入公式，也沒有給我一個值。 我的問題可能是什么？

Answer 1

嘗試用這個替換你的公式分配

Cells(x, NewestLCol).Formula = "=VLOOKUP(" & _
                                dynamic_lookup_value.Address(0, 0) & _
                                "," & _
                                TZsrchRange.Address(External:=True) & _
                                ",3, FALSE)"