在vlookup中将＃N / A替换为空白

Question

I'm using a loop to update the values in one workbook from the values in another workbook using the following code:

    Option Explicit

    Sub DateFinder()
    Dim rw As Long, x As Range
    Dim extwbk As Workbook, twb As Workbook

    ' Turn off notifications
       Application.ScreenUpdating = False

    Set twb = ThisWorkbook
    Set extwbk = Workbooks.Open("C:\Test.xlsx")

    ' Refresh UsedRange (get rid of "Ghost" cells)
      Set x = extwbk.Worksheets("Sheet1").UsedRange

    With twb.Worksheets("Sheet1")

       For rw = 2 To .Cells(Rows.Count, "G").End(xlUp).Row
         .Cells(rw, "Q") = Application.VLookup(.Cells(rw, "G").Value2, 4, False)

       Next rw

    End With

   ' Close workbook
       extwbk.Close savechanges:=False

   ' Turn on screen updating
       Application.ScreenUpdating = True

   ' Message Box showing that process is complete.
       MsgBox "Done!"

   End Sub

Everything works fine but I want to change the code to replace the #N/A results with blanks. I've search the site and found the following solutions but none of them are working for me:

    .Cells(rw, "Q") = IfError(Application.VLookup(.Cells(rw, "G").Value2, x, 4, False), "")
    .Cells(rw, "Q") = "=IFERROR(Application.VLookup(.Cells(rw, "G").Value2, x, 4, False),"""",Application.VLookup(.Cells(rw, "G").Value2, x, 4, False))"
    .Cells(rw, "Q") = "=IF(ISNA(VLOOKUP(.Cells(rw, "G").Value2, x, 4, False)),"""",(VLOOKUP(.Cells(rw, "G").Value2, x, 4, False)))

I get a compile error with all three solutions. If anyone could help me with the correct formula that would be great. Thanks.

Answer 1

You may need to qualify IfError as a member of the Application class, try:

.Cells(rw, "Q") = Application.IfError(Application.VLookup(.Cells(rw, "G").Value2, 4, False), "")

Another alternative is to assign the result of Application.VLookup to a variant (otherwise, Type Mismatch will raise on the assignment), and then check for error. This is how you can use the IIF and IsError functions to check for error & cast to empty string in case of error:

Dim val As Variant
val = Application.VLookup(.Cells(rw, "G").Value2, 4, False)
.Cells(rw, "Q") = IIF(IsError(val),vbNullString,val)

Answer 2

Surround the function with an IfError . However, in the future rather than using vlookup , I recommend Index-Match. You can read about it here:

https://www.deskbright.com/excel/using-index-match/

Index/Match is a combination of 2 functions that have a net result better and easier than vlookup .

Also, if the time comes where you need to transpose data, you would need to use hlookup instead of vlookup . Index Match takes care of everything for you.