Question

我有一个简单的索引文件，它将遍历500多个文件，并将检索相关信息。其中一个索引字段是VLookUp，它引用活动索引工作簿中的另一个工作表。在测试脚本时，VLookUp函数找不到合适的值，即使我手动将相同的公式输入到单元格中也是如此。任何想法为什么会发生这种情况（每次返回“N / A”，如ErrorHandling所示）：

Public Sub UpdateIndex()

Dim RowNumber As Integer, LookUpLast As Integer
Dim Control As String, PartNumber As String, PartDescription As String, Rev As String
Dim LookUp As Range, IndexLookup As Variant

Control = "Arbitrary"
RowNumber = 2
With ThisWorkbook.Worksheets(Sheet2)
LookUpLast = .Range("A" & Rows.Count).End(xlUp).Row
Set LookUp = .Range(.Cells(2, 1), .Cells(LookUpLast, 2)) 'Had previously tried Range("A2", "B" & LookUpLast)
End With

    IndexLookup = Application.WorksheetFunction.VLookUp(Control, LookUp, 2, False)

    With ThisWorkbook.Worksheets(Sheet1)
        .Range("D" & RowNumber) = IndexLookup
    End With

    RowNumber = RowNumber + 1

Next File

Exit Sub

ErrorHandler:
If Err.Number = 1004 Then
    IndexLookup = "N/A"
    Resume Next
End If

End Sub

Vlookup函数找不到正确的值

0 个答案: