Question

我在Sheet1“B”列中有值，它是Sheet2中从“A到K”列的vlookup，并复制Sheet2的相应C列值并将其粘贴到Sheet1的E列中。

我尝试使用以下代码，但它显示错误为

运行时错误'1004'：无法获取工作表函数类的Vlookup属性。

Sub vlook_up()
  For i = 2 To 11
       Cells("D" & i).Value = WorksheetFunction.VLookup(Sheets("Sheet1").Range("B" & i), Sheets("Sheet2").Range("A1:K500"), 3, 0)
  Next i
End Sub

Answer 1

这对我有用，但我觉得你传递的函数是一个不合适的var类型。

Sub vlook_up()
  For i = 2 To 11
       Range("D" & i).Value = WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Sheets("Sheet1").Range("B" & i), Sheets("Sheet2").Range("A1:K500"), 3, False), "error")
  Next i
End Sub

Answer 2

试试这个

Sub vlook_up()
  For i = 2 To 11
       Range("D" & i).Value = Application.WorksheetFunction.VLookup(Sheets("Sheet1").Range("B" & i), Sheets("Sheet2").Range("A1:K500"), 3, False);
  Next i
End Sub

或

 Sub vlook_up()
      For i = 2 To 11
           Range("D" & i).Value = Application.VLookup(Sheets("Sheet1").Range("B" & i), Sheets("Sheet2").Range("A1:K500"), 3, False);
      Next i
    End Sub

VLOOKUP适用于不同的床单

2 个答案: