Excel VBA如何查找多匹配数据？技术求助

嘿，我明白你的问题了——你现在用WorksheetFunction.Match只能拿到第一个匹配项，但你需要找出最后一行之前的所有匹配结果对吧？这就给你解决思路和代码示例～

为什么你的原代码不行？ #

WorksheetFunction.Match的特性是只返回第一个匹配项的行号，所以你的循环里每次调用它都只会拿到同一个结果，自然没法遍历所有符合条件的项。

方案1：遍历单元格逐个检查（简单直接） #

如果你的数据量不大，直接遍历目标区域的每个单元格是最容易理解和实现的方式：

Sub FindAllMatches()
    Dim wsFood As Worksheet
    Dim lastRow As Long
    Dim rowData As Long
    Dim searchValue As String
    
    ' 初始化工作表和查找值
    Set wsFood = ThisWorkbook.Worksheets("Food")
    searchValue = "Sandwich"
    
    ' 获取A列的最后一行行号（避免硬编码）
    lastRow = wsFood.Cells(wsFood.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历从第2行到倒数第二行的所有单元格（排除最后一行）
    For rowData = 2 To lastRow - 1
        If wsFood.Cells(rowData, "A").Value = searchValue Then
            MsgBox "找到匹配项！行号：" & rowData
            ' 这里可以添加你需要执行的其他操作，比如把匹配项复制到其他工作表
        End If
    Next rowData
End Sub

方案2：用Find+FindNext高效查找（适合大数据集） #

如果你的数据量很大，逐个遍历效率会很低，这时候用Excel内置的Find和FindNext方法更高效：

Sub FindAllMatchesWithFind()
    Dim wsFood As Worksheet
    Dim lastRow As Long
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstFoundAddress As String
    Dim searchValue As String
    
    ' 初始化工作表和查找值
    Set wsFood = ThisWorkbook.Worksheets("Food")
    searchValue = "Sandwich"
    
    ' 获取A列最后一行，限定查找范围为第2行到倒数第二行
    lastRow = wsFood.Cells(wsFood.Rows.Count, "A").End(xlUp).Row
    Set searchRange = wsFood.Range("A2:A" & lastRow - 1)
    
    ' 查找第一个匹配项
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' 记录第一个匹配项的地址，避免无限循环
        firstFoundAddress = foundCell.Address
        
        Do
            MsgBox "找到匹配项！行号：" & foundCell.Row
            ' 这里添加你的自定义操作逻辑
            
            ' 查找下一个匹配项
            Set foundCell = searchRange.FindNext(foundCell)
        ' 循环直到找不到匹配项，或者回到第一个匹配项的位置
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddress
    Else
        MsgBox "没有找到任何匹配项"
    End If
End Sub

小提示 #

• LookAt:=xlWhole表示精确匹配，如果你需要模糊匹配（比如单元格包含"Sandwich"），可以改成LookAt:=xlPart。
• 两种方法都特意用了lastRow - 1来排除最后一行，完全符合你的需求。

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