Iserror和Vlookup失败

时间:2016-11-15 20:41:11

标签: excel-vba vba excel

我在vlookup中使用了一个iserror,它在一个场景中工作但在另一个场景中失败

任何人都可以请帮助

If LastRowVBAWorkspace > 1 Then
    For i = 2 To LastRowVBAWorkspace
        BoolReturn = IsError(Application.WorksheetFunction.VLookup(Worksheets("VBAWorkspace").Range("A" & i).Value, Worksheets("ReSKU").Range("A:A"), 1, False))
        If BoolReturn = True Then
            If j = 1 Then
                j = j + 1
                Worksheets("ReSKU").Range("A" & j).Value = Worksheets("VBAWorkspace").Range("A" & i).Value
            Else
                Worksheets("ReSKU").Range("A" & j).Value = Worksheets("VBAWorkspace").Range("A" & i).Value
                j = j + 1
            End If
        End If
    Next i
End If

0 个答案:

没有答案