VBA Listbox多条件搜索仅显示单条结果问题求助

问题场景 #

优化长VBA代码后，在UserForm的「Search Existing Orders Based on Multiple Criteria」框架下，选择ComboBox的「Shop Order」选项，在TextBox输入"A"执行搜索，ListBox仅返回1条结果，但实际存在4条符合匹配条件的数据。

可能原因与修复方案 #

1. 循环逻辑过早终止 #

优化代码时可能误添加了Exit For/Exit Do这类终止循环的语句，导致找到第一条匹配数据后就停止遍历。

• 修复：检查遍历数据源的代码段，删除匹配判断分支内的Exit For语句，确保完整遍历所有行：

  For i = 2 To lastRow
      If Cells(i, "A").Value Like "*" & txtSearch.Value & "*" Then
          ' 向ListBox添加数据的代码
          ' 此处禁止添加Exit For！
      End If
  Next i
  

2. ListBox数据被覆盖而非追加 #

每次找到匹配项时，若直接用赋值语句覆盖ListBox原有内容，会导致仅保留最后一条（或第一条）匹配数据。

• 错误写法（覆盖）：

  ListBox1.List = Array(Cells(i,1).Value, Cells(i,2).Value)
  

• 正确写法（追加）：

  ListBox1.AddItem
  ListBox1.List(ListBox1.ListCount - 1, 0) = Cells(i, 1).Value
  ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, 2).Value
  

  或先收集所有匹配数据到数组，再一次性赋值给ListBox：

  Dim matchArr() As Variant, matchCount As Integer
  matchCount = 0
  For i = 2 To lastRow
      If Cells(i, "A").Value Like "*" & txtSearch.Value & "*" Then
          matchCount = matchCount + 1
          ReDim Preserve matchArr(1 To 2, 1 To matchCount)
          matchArr(1, matchCount) = Cells(i, 1).Value
          matchArr(2, matchCount) = Cells(i, 2).Value
      End If
  Next i
  ListBox1.List = Application.Transpose(matchArr)
  

3. 匹配条件逻辑错误 #

优化后的匹配规则可能存在偏差，导致仅命中单条数据：

• 检查是否误将模糊匹配写成精确匹配：把If Cells(i,"A").Value = txtSearch.Value Then改为If Cells(i,"A").Value Like "*" & txtSearch.Value & "*" Then
• 若需忽略大小写，统一转换为大写/小写后判断：

  If UCase(Cells(i, "A").Value) Like "*" & UCase(txtSearch.Value) & "*" Then
  

4. 数据源范围被缩小 #

获取数据最后一行的逻辑错误，导致仅遍历了部分数据：

• 确认lastRow的取值逻辑正确：

  Dim lastRow As Long
  lastRow = Sheets("Orders").Cells(Rows.Count, "A").End(xlUp).Row
  ' 可通过Debug.Print lastRow验证是否等于实际数据的最后一行行号
  

调试建议 #

在循环内加入Debug.Print Cells(i,"A").Value，查看遍历到的所有数据，确认哪些数据被判定为匹配，快速定位逻辑问题。

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