为什么在 VBA 中使用 VLookup 引用另一个 Excel 文件时会出现 #N/A？

Question

我正在尝试在 VBA 中编写一个引用另一个工作簿的 VLookup。基本上我正在尝试查找 2 个工作簿。

这是我的目标的简单概述：

• 在工作簿 1 的 A 列中的所有行中查找值
• 从工作簿 2 的 A 列（对应于工作簿 1 中的 A 列的值）和 C 列（要复制的值）中提取信息，并将其放在工作簿 1 的 B 列中的相应单元格（行）中。附加条件：（1）如果单元格中已经存在值，则覆盖；（2）如果没有为单元格找到值，则保持单元格不变。所以也没有#N/A。
• 继续并重复该过程，直到工作簿 1 的 A 列中没有更多条目

下面是我已经拥有的代码。我偶然发现代码不起作用的事实。对于 B 列中的每一行，我不断得到#N/As，而至少应该找到一些值并将其粘贴到某些单元格中。出于测试目的，我将 workbook2 中的引用表复制到 workbook1 中的工作表中，当我在同一个 workbook1 中引用该特定工作表时，代码似乎可以工作。

Sub Import()

Dim rw As Long, x As Range
Dim extwbk As Workbook, twb As Workbook

Set twb = ThisWorkbook
Set extwbk = Workbooks.Open("C:\Documents\workbook2.csv")
Set x = twb.Worksheets("Sheet1").Range("A1:H100")

With twb.Sheets("Sheet1")

     For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
         .Cells(rw,2) = Application.Vlookup(.Cells(rw,1).Value2,x,3,False)
     Next rw

End With


End Sub

您在我的代码中看到错误吗？或者有没有人有更好的方法来完成这项任务？最好，我还想打开一个选定的文件，而不是引用完整路径。

提前致谢！

Answer 1

不妨试试这个：

    For ...    
         on Error Resume Next
         .Cells(rw, 2).Value = WorksheetFunction.Vlookup(.Cells(rw,1).Value, x, 3, False))
    Next ...

但是，如果我没听错的话，“x”是您搜索值的范围，并且它被定义为同一张纸上的范围。所以范围重叠了！？

Answer 2

可能是因为这一行：

Set x = twb.Worksheets("Sheet1").Range("A1:H100")

引用了错误的工作簿。应该是：

Set x = extwbk.Worksheets("Sheet1").Range("A1:H100")

处理 N/A 值 在你的循环中尝试这样的代码：

For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        If Application.IsNA(Application.VLookup(.Cells(rw, 1).Value2, x, 3, False)) Then
            .Cells(rw, 2) = "NOT FOUND"
        Else
            .Cells(rw, 2) = Application.VLookup(.Cells(rw, 1).Value2, x, 3, False)
        End If
         
     Next rw

将“NOT FOUND”替换为您想要显示的任何内容，或者如果您想要一个空单元格，则只需“”