Excel VBA遍历所有列搜索时如何构建循环获取全部匹配结果

你现在的代码不需要额外写遍历行的循环——之前只返回第一条结果，根本不是缺循环，是全列搜索的条件生成逻辑错了。
你现在全列搜索时，靠Find抓到第一个匹配的单元格，把这个单元格对应的列头当成唯一筛选条件，相当于只搜这一个列，既漏掉了其他列的匹配行，也没实现真正的全表搜索。

完全不用给指定列搜索、全列搜索写两套独立代码，用高级筛选的条件区域结构，一套逻辑就能覆盖两个场景，而且比你自己写VBA循环逐行判断快得多，适合你3万行的数据源规模。

条件区域调整思路 #

高级筛选的条件规则是：

• 同一行的多个条件，是OR匹配：只要行里任意一列满足对应条件，就保留该行
• 不同行的条件，是AND匹配：需要同时满足所有条件才保留
  你现在的条件区域是C4:C5两格，宽度只够支持单列匹配，把它扩展到和你要搜索的B:H列同宽（也就是C4到J5的范围，一共7列，对应B到H的7个字段）：
• 条件头行（第4行）：对应你要匹配的列名
• 条件值行（第5行）：对应匹配规则

具体两个场景的填法：

1. 指定列搜索：只在C4单元格填选中的列名，C5填对应的匹配规则（ID列精确匹配，其他列模糊匹配），剩下的D4:J5单元格全留空。这种结构高级筛选就会只在指定列搜所有匹配项。
2. 全列搜索：C4:J4的条件头行全部留空，C5:J5的条件值行统一填"*" & 搜索值 & "*"的模糊匹配规则。这种结构高级筛选就会自动判断：只要某一行任意一列包含搜索值，就把这行返回。

代码修改要点 #

• 删掉原来全列搜索分支里用Find拿第一个匹配列、生成筛选条件的逻辑
• 每次点搜索时先清空整个C4:J5的旧条件，避免残留的旧条件干扰结果
• 高级筛选的CriteriaRange参数，改成覆盖整个C4:J5的范围，不要只选原来的C4:C5
• 原来用来找匹配列、做调试提示的Find代码，不要放在生成筛选条件的环节，等高级筛选跑完拿到所有结果后，再调用Find找第一个匹配值的列头，用来在界面上提示用户匹配的字段就行。

Private Sub btnZoeken_Click()
    Dim DataSH As Worksheet
    Dim searchVal As String
    
    On Error GoTo errHandler:
    
    Set DataSH = Sheet1
    Application.ScreenUpdating = False
    
    ' 清空旧的筛选条件，避免残留干扰
    DataSH.Range("C4:J5").ClearContents
    searchVal = Trim(Me.txtZoeken.Value)
    
    ' 场景1：指定列搜索
    If Me.cboHeader.Value <> "Alles" Then
        DataSH.Range("C4") = Me.cboHeader.Value
        If searchVal = "" Then
            DataSH.Range("C5") = ""
        Else
            ' ID字段用精确匹配，其余字段用模糊匹配
            If Me.cboHeader.Value = "ID" Then
                DataSH.Range("C5") = searchVal
            Else
                DataSH.Range("C5") = "*" & searchVal & "*"
            End If
        End If
    End If
    
    ' 场景2：全列搜索
    If Me.cboHeader.Value = "Alles" Then
        ' 条件头全空，不固定匹配列
        DataSH.Range("C4:J4").ClearContents
        If searchVal = "" Then
            DataSH.Range("C5:J5").ClearContents
        Else
            ' 所有搜索列统一设置模糊匹配规则
            DataSH.Range("C5:J5").Value = "*" & searchVal & "*"
        End If
    End If
    
    ' 执行高级筛选，返回所有匹配行
    DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=DataSH.Range("C4:J5"), _
        CopyToRange:=DataSH.Range("N8:T8"), _
        Unique:=False
    
    ' 把筛选结果绑定到列表框
    lstResult.RowSource = DataSH.Range("outdata").Address(external:=True)
    
    ' 调试提示：匹配值所在的列
    If Me.cboHeader.Value = "Alles" And searchVal <> "" Then
        Dim FindMe As Range
        Set FindMe = DataSH.Range("B9:H30000").Find(What:=searchVal, LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False)
        If Not FindMe Is Nothing Then
            Me.RegTreffer.Value = DataSH.Cells(8, FindMe.Column).Value
        Else
            Me.RegTreffer.Value = ""
        End If
    Else
        Me.RegTreffer.Value = ""
    End If
    
    Application.ScreenUpdating = True
    On Error GoTo 0
    Exit Sub
errHandler:
    Application.ScreenUpdating = True
    MsgBox "没有找到和「" & txtZoeken.Text & "」在「" & Me.cboHeader.Value & "」范围匹配的结果"
    Me.lstResult.RowSource = ""
    Me.RegTreffer.Value = ""
End Sub

如果你硬要自己写循环逐行判断每列是否包含匹配值，3万行数据至少要遍历21万个单元格，比高级筛选慢一个数量级，还容易出现界面卡顿、内存溢出的问题。用上面的方法，两个搜索场景共用同一套高级筛选逻辑，不需要写复杂的循环，维护成本低，运行速度也快。

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