VBA에서 VLOOKUP 사용 - 다른 VLOOKUP 또는 INDEX/MATCH를 참조하여 N/A를 돌보는 경우

Question

VBA에서이 IF-THEN 문을 알아내는 데 문제가 있습니다. 현재 사용하고있는 코드는 VLOOKUP을 사용하여 열 E에 값을 가져 오지만 일부 결과는 VLOOKUP이 참조하는 탭이 포함되어 있지 않기 때문에 # N/A로 표시됩니다. 결과가 # N/A로 표시되면 VBA에서 내 통합 문서 내의 다른 탭에서 다른 룩업 (선호 색인/일치)을 수행해야합니다. 이것은 내가 지금까지 가지고있는 것입니다, 6 단계는 완벽하게 작동하지만 일부 N/A는 반환합니다. 형식 불일치

: - 오류 '13'타임 실행

'Step 6: Copy the recordset to Excel 

With ThisWorkbook.Worksheets("DQ_Collectors_3162") 
    .Activate 
    .Range("A2:R" & Rows.Count).Clear 
    .Range("A2").CopyFromRecordset rs 

    'Dealer column 
    Dim dealerCol As String 
    Dim FinalRow As Integer 
    Dim contractCol As String 


    contractCol = ConvertToLetter(FindMatchingValueColumn("Contract ID", 1)) 
    FinalRow = .Cells(Application.Rows.Count, 1).End(xlUp).Row + 1 

    lookup = "=VLOOKUP(" & contractCol & ":" & contractCol & ",'Dealer Name 
    Index'!A:B,2,FALSE)" 
    dealerCol = ConvertToLetter(FindMatchingValueColumn("Dealer", 1)) 
    .Range(dealerCol & "2").Value = vlookup 
    .Range(dealerCol & "2:" & dealerCol & FinalRow).FillDown 
    .Range(dealerCol & ":" & dealerCol).Copy 

End With 

'Step 7: Take Care of N/A's 

    Dim R As Range 
    indexmatch = "=INDEX('IBIC Name Index'B:B,match(B:B,'IBIC Name 
    Index'A:A,0))" 

    Set R = Range("E:E") 
    If R.Value = "#N/A" Then 
    R.Value = indexmatch 

End If 

내가지고있어 오류가 있습니다 : 나는 IF-THEN 문으로 N/A의를 해결하기 위해 노력하고 같은 오류는 7 단계에서오고있다

Answer 1

전체 열을보고 직접 시도하는 방식으로 모든 셀을 단일 값으로 비교할 수는 없습니다. 열 E의 모든 #NA 오류를 처리하려면 SpecialCells를 사용하십시오.

Dim r As Range 
With Worksheets("Sheet5") 
    With Intersect(.UsedRange, .Range("E:E")) 
     For Each r In .SpecialCells(xlCellTypeFormulas, xlErrors) 
      If r.Value = CVErr(xlErrNA) Then 
       Debug.Print r.Address & " is an #NA error" 
      End If 
     Next r 
    End With 
End With 

Answer 2

당신은 다음과 같은 전체 범위를 테스트 할 수 있습니다

If WorksheetFunction.CountIf(R,"#N/A") > 0 Then