vba 間接 function 使用細胞

Question

我在 A 列中填充了變量名稱，例如。 單元格 A1 包含“apple”，A2 包含“banana”......並且全局值已經分配給每個變量（例如 apple = 1，banana = 2）。

我想用相鄰列 A 單元格中引用的變量的值填充列 B，即。 B1 = 1（通過引用“apple”），B2 = 2（通過引用“banana”）。

我使用的是 function 'indirect' ，但 output 只是#NAME，其中公式顯示為 direct indirect(cells(1,1) 。

這是我的代碼：

Sub test()  
    Dim i as Long  
    Dim ii as Long  
    Dim lastrow as Long  

    lastrow = Worksheets("Sheet1").Range("A:A").Find("*", searchdirection:=xlPrevious).Row  
    ii = 1  
    row i = 1 to lastrow

    Worksheets("Sheet1".Range("B"&ii) = "indirect(cells(" & ii & ",1))"  
    ii = ii+1  
    Next i  
    End Sub

Answer 1

我可能會使用 SWITCH function 來執行此操作。 =SWITCH（A1，“蘋果”，1，“香蕉”，2）