VBA VLookUp无法正常工作

嗨，我想在VBA中使用VLookUpfunction。 它带有错误，“无法获取worksheetFunction类的VLookUp属性”它试图从名为13.09.2017的工作表

Sub VLookUp() Dim i As Integer Dim k As Integer For i = 1 To 10 ThisWorksheet.Cells(1 + i, 11) = WorksheetFunction.VLookUp(Cells(1 + i, 2), Worksheets("13.09.2017").Range("B2:K11"), 10, False) Next End Sub 

我希望你能帮助我

Answer 1

ThisWorksheet不是VBA对象库的一部分。 你可能需要ThisWorksbook

这是如何做到这一点，如果你想使用ActiveSheet（这不是build议，但它的工作原理）：

 Sub VLookUp() Dim i As Integer Dim k As Integer With ThisWorkbook.ActiveSheet For i = 1 To 10 .Cells(1 + i, 11) = WorksheetFunction.VLookUp(.Cells(1 + i, 2), _ Worksheets("13.09.2017").Range("B2:K11"), 10, False) Next End with End Sub 

Answer 2

在ThisWorksheet问题旁边，你的代码将在第一个实例中断开，其中vlookup在范围中找不到值。 如果这是您将要运行的唯一代码，那么添加On Error Resume Next语句以避免错误。

 Sub VLookUp() Dim i As Integer Dim k As Integer On Error Resume Next With ActiveSheet For i = 1 To 10 .Cells(1 + i, 11) = WorksheetFunction.VLookUp(.Cells(1 + i, 2), _ Worksheets("13.09.2017").Range("B2:K11"), 10, False) Next End With End Sub