简单的Visual Basic q中的excel宏

Dim test As String 

test = CStr(ActiveWorkSheet.VLookup("jpeg_lrg", B, 3))

我在Excel VBA宏

Dim test As String 

test = CStr(ActiveWorkSheet.VLookup("jpeg_lrg", B44, 3))

（没有工作也一样）

也试过没有CSTR

你能解释一下你想达到什么吗，否则我们不能帮你 – Conquistador

代码是否编译？使用调试菜单 - >编译来检查。在1日，'VLOOKUP'不是工作表上的一个函数。 – shahkalpesh

您不能只将范围作为变量名称传递。

Dim test As String 

test = Application.WorksheetFunction.VLookup("jpeg_lrg", ActiveSheet.Range("B:B"), 3)

虽然这不会有任何意义，因为“B：B”只包含一列，而您要求列为第三列。使用VLookup，您需要至少两个范围内的列。

2013-07-10 18:46:12 GSerg

我认为你正试图返回E44细胞的价值？如果是这种情况，那么这应该为你工作 - 用你需要的代码替换MsgBox。

For Each i In Range("B44") 
    If i = "jpeg_lrg" Then 
     MsgBox i.Offset(0, 2) 
     Else 
    End If 
Next i

2013-07-10 18:45:40 Conquistador

回答