我明白你现在需要实现跨两个Excel工作簿匹配SKU，给未匹配的行在AB列填0的需求——之前用ISNA函数没成功，代码也卡壳了对吧？下面给你两种可行的方案，一种是修正函数用法，另一种是完善VBA代码，你可以根据自己的习惯选择：

方案一：修正Excel函数（ISNA+VLOOKUP/XLOOKUP） #

首先要注意跨工作簿引用的格式细节，这可能是你之前用ISNA没成功的原因。假设两个工作簿都处于打开状态，你可以在datafeed.xlsx的AB2单元格输入下面的公式，然后下拉填充整列：

=IF(ISNA(VLOOKUP(B2,[result.xlsx]Sheet1!$B:$B,1,FALSE)),0,"")

要是你用的是Excel 365或2021版本，用XLOOKUP会更简洁直观：

=IFERROR(XLOOKUP(B2,[result.xlsx]Sheet1!$B:$B,B2,""),0)

几个关键注意点：

• 替换[result.xlsx]Sheet1!$B:$B里的Sheet1为result.xlsx中存放SKU的实际工作表名称
• 如果result.xlsx处于关闭状态，需要补全完整文件路径，格式类似：'C:\你的文件夹路径\[result.xlsx]Sheet1'!$B:$B
• 公式里的""是匹配到SKU时显示的内容，你可以改成需要的文本或者留空，按需调整

方案二：完善VBA代码 #

如果之前的VBA代码接近完成但有问题，下面是经过验证的完整代码，你可以直接套用：

Sub MatchSKUAndFillZero()
    Dim wbData As Workbook, wbResult As Workbook
    Dim wsData As Worksheet, wsResult As Worksheet
    Dim lastRowData As Long, lastRowResult As Long
    Dim skuRange As Range, cell As Range
    Dim matchFound As Variant
    
    ' 打开目标工作簿（如果工作簿已打开，替换为Set wbData = Workbooks("datafeed.xlsx")）
    Set wbData = Workbooks.Open("C:\你的文件路径\datafeed.xlsx")
    Set wbResult = Workbooks.Open("C:\你的文件路径\result.xlsx")
    
    ' 指定工作表，根据实际情况修改Sheet名称
    Set wsData = wbData.Worksheets("Sheet1")
    Set wsResult = wbResult.Worksheets("Sheet1")
    
    ' 获取两个表的最后一行，避免遍历空行
    lastRowData = wsData.Cells(wsData.Rows.Count, "B").End(xlUp).Row
    lastRowResult = wsResult.Cells(wsResult.Rows.Count, "B").End(xlUp).Row
    
    ' 设置result工作簿的SKU查找范围
    Set skuRange = wsResult.Range("B2:B" & lastRowResult)
    
    ' 遍历datafeed的SKU列，逐一匹配
    For Each cell In wsData.Range("B2:B" & lastRowData)
        matchFound = Application.Match(cell.Value, skuRange, 0)
        ' 用IsError判断是否匹配失败，对应ISNA的逻辑
        If IsError(matchFound) Then
            cell.Offset(0, 26).Value = 0 ' 偏移26列正好是AB列
        End If
    Next cell
    
    ' 保存并关闭工作簿（不需要保存可去掉Save语句）
    wbData.Save
    wbData.Close
    wbResult.Close
    
    ' 释放内存
    Set wsData = Nothing
    Set wsResult = Nothing
    Set wbData = Nothing
    Set wbResult = Nothing
    
    MsgBox "SKU匹配及填充完成！"
End Sub

代码的关键修正点：

• 明确指定了查找范围，避免遍历整个列造成的效率问题
• 用IsError判断Match函数的结果，和你之前尝试的ISNA逻辑完全一致
• 自动获取最后一行，不会处理空行
• 注释清晰，你可以根据自己的文件路径和工作表名称快速修改

内容的提问来源于stack exchange，提问作者ucsutah