VBA间接功能使用细胞

Question

>我在 A 列中填充了变量名称，例如单元格 A1 包含"苹果"，A2 包含"香蕉"......并且全局值已经分配给每个变量(例如，苹果= 1，香蕉= 2(。

我想用相邻列 A 单元格中引用的变量值填充 B 列，即。B1 = 1(通过引用"苹果"(，B2 = 2(通过引用"香蕉"(。

我正在使用函数'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(