使用单元格的vba间接函数

Question

我在A列中填充了变量名，例如A1单元格中包含 "apple"，A2单元格中包含 "banana"......并且全局值已经分配给每个变量（例如apple = 1，banana = 2）。

我想用相邻的A列单元格中引用的变量值填充B列，即B1=1（引用 "apple"），B2=2（引用 "banana"）。

我使用的函数是 'indirect'但输出只是#NAME，公式显示为 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函数来完成这个任务。 =SWITCH(A1, "Apple", 1, "Banana", 2)