VBA-vlookup運行至運行時錯誤'13'

Question

我對VBA還是很陌生，所以我想創建一個VLOOKUP宏，但是當VLOOKUP在運行時錯誤“ 13”類型不匹配的范圍內找不到該值時，也面臨着同樣的問題。

我想要宏執行的操作是為TOTAL工作表中的每個訂單項從OLA列表工作表中找到值，並做到這一點，但不包括在OLA列表工作表中的值，因為我希望它們寫為“ NA ”。

請參閱下面的代碼：

Sub elsovlookup()

    Dim i As Long
    Dim test As String
    Dim size As Long

    size = WorksheetFunction.CountA(Worksheets("TOTAL").Columns(1)) + 1

        For i = 3 To size

        cell = Worksheets("TOTAL").Cells(i, "U")
        test = Application.VLookup(cell, Worksheets("OLA list").Range("K:R"), 8, False)
        If IsError(test) Then
            test = "NA"
            Worksheets("TOTAL").Cells(i, "AC") = "OLA not found"
        Else:
            Worksheets("TOTAL").Cells(i, "AC") = "OLA found"
        End If
        Worksheets("TOTAL").Cells(i, "V") = test
    Next i

    MsgBox "First vlookup is complete."

預先感謝您的幫助

Answer 1

嘗試下面的代碼。 會工作的

Sub elsovlookup()
    Dim i As Long
    Dim size As Long
    Dim cell As Range
    size = WorksheetFunction.CountA(Worksheets("TOTAL").Columns(1)) + 1
    For i = 3 To size
        Set cell = Worksheets("TOTAL").Cells(i, "U")
        If Application.WorksheetFunction.CountIf(Worksheets("OLA list").Range("K:K"), cell.Value) > 0 Then
            Worksheets("TOTAL").Cells(i, "AC") = "OLA found"
        Else
            Worksheets("TOTAL").Cells(i, "AC") = "OLA not found"
        End If
        Worksheets("TOTAL").Cells(i, "V") = test
    Next i
    MsgBox "First vlookup is complete."
End Sub