Excel VBA循环中修改Index/Match数组/范围的技术咨询

嘿，我懂你现在的需求——想把原来用CountIf实现的「找Data表A列有但B列没有的新增项」，改成用Index/Match结合循环来做对吧？折腾了一天没找到合适方案，我来给你捋清楚怎么弄～

首先咱们明确核心逻辑：遍历Data表A列的每一个值，用Match函数去B列里找匹配项；如果找不到（也就是Match返回错误），就把这个值认定为新增项，写入到Summary表中。

下面是完整的可运行代码，我加了详细注释方便你理解：

Sub FindNewItemsWithIndexMatch()
    Dim dataWS As Worksheet
    Dim summaryWS As Worksheet
    Dim rngA As Range
    Dim cell As Range
    Dim matchResult As Variant
    Dim lastRowSummary As Long
    
    ' 先绑定工作表对象，避免硬编码名称出错
    Set dataWS = ThisWorkbook.Sheets("Data")
    Set summaryWS = ThisWorkbook.Sheets("Summary")
    
    ' 动态获取A列的有效数据范围（从A2到最后一行，比固定A200灵活）
    Set rngA = dataWS.Range("A2:A" & dataWS.Cells(dataWS.Rows.Count, "A").End(xlUp).Row)
    
    ' 初始化Summary表的写入起始行（这里从A2开始，你可以按需调整）
    lastRowSummary = 2
    
    ' 开始遍历A列的每个单元格
    For Each cell In rngA
        ' 用Match精确查找当前单元格的值在B列的位置
        ' 用Application.Match而不是WorksheetFunction.Match，因为前者返回错误值而非直接报错
        matchResult = Application.Match(cell.Value, dataWS.Range("B:B"), xlWhole)
        
        ' 如果Match返回错误，说明B列没有这个值，属于新增项
        If IsError(matchResult) Then
            ' 把这个值写入Summary表
            summaryWS.Cells(lastRowSummary, "A").Value = cell.Value
            ' 准备写下一个新增项
            lastRowSummary = lastRowSummary + 1
        End If
    Next cell
    
    ' 完成后提示一下
    MsgBox "新增项筛选完成！", vbInformation
End Sub

几个关键细节说明 #

• 为什么用Application.Match？ 对比WorksheetFunction.Match，前者在找不到匹配项时会返回错误值（我们可以用IsError判断），而后者会直接抛出运行时错误，需要额外加On Error Resume Next这类错误处理，反而麻烦。
• 动态范围的好处：代码里用dataWS.Cells(dataWS.Rows.Count, "A").End(xlUp).Row获取A列最后一行，不管你的数据是10行还是2000行，都能自动适配，不用每次改代码里的固定行号。
• 如果要动态修改查找范围：要是你真的需要每次循环调整B列的查找范围（比如每次只查B列的前N行），可以把dataWS.Range("B:B")改成动态范围，比如dataWS.Range("B2:B" & someVariableRow)，把someVariableRow换成你循环里要修改的行号就行。

其实CountIf也能完成基础的新增项筛选，但用Index/Match的优势在于，如果你后续需要获取匹配项的行号，做更多扩展操作（比如取B列对应行的其他数据），会比CountIf更灵活好用。

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