如何将所有匹配行返回至ListBox？Excel VBA代码问题求助

你的代码核心问题出在ListBox填充逻辑上：ListBox1.List = row语句会直接覆盖ListBox的所有现有内容，导致循环结束后只显示最后一行匹配结果，而非所有匹配行。另外，双重循环的匹配方式在数据量大时效率较低，可优化。

直接修正方案（针对原代码逻辑） #

保留原有的匹配行收集逻辑，修改ListBox的填充部分，逐行添加每个单元格的值：

' 先清空ListBox，避免残留旧数据
ListBox1.Clear

' 遍历匹配行集合，逐行添加到ListBox
For Each row In matchingRows
    ListBox1.AddItem
    ' 遍历当前行的所有列，赋值到ListBox的对应位置
    For col = LBound(row) To UBound(row)
        ' ListBox的列索引从0开始，所以要减1
        ListBox1.List(ListBox1.ListCount - 1, col - 1) = row(col)
    Next col
Next row

高效优化方案（用字典提升匹配速度） #

如果两个工作表数据量较大，双重循环的匹配方式效率极低。可以用Scripting.Dictionary先存储第二个工作表的L列值，再快速匹配第一个工作表的行：

Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim lastRowData As Long, lastRow As Long
Dim wsData As Worksheet, wsInv As Worksheet
Dim i As Long, key As Variant

' 替换为你的实际工作表名称
Set wsData = ThisWorkbook.Worksheets("Data")
Set wsInv = ThisWorkbook.Worksheets("Inv")

' 获取两个表的最后行号
lastRowData = wsData.Cells(wsData.Rows.Count, "L").End(xlUp).Row
lastRow = wsInv.Cells(wsInv.Rows.Count, "L").End(xlUp).Row

' 将wsData的L列值存入字典（支持重复值匹配）
For i = 3 To lastRowData
    key = wsData.Cells(i, "L").Value
    If Not dict.Exists(key) Then
        dict.Add key, New Collection
    End If
    dict(key).Add i ' 存储对应行号，也可直接存储行值
Next i

' 收集wsInv中匹配的行
Dim matchingRows As Collection
Set matchingRows = New Collection
For i = 2 To lastRow
    key = wsInv.Cells(i, "L").Value
    If dict.Exists(key) Then
        matchingRows.Add wsInv.Rows(i).Value
    End If
Next i

' 批量填充ListBox（更高效）
ListBox1.Clear
If matchingRows.Count > 0 Then
    Dim arr() As Variant
    ' 定义二维数组，行数为匹配行数，列数为wsInv的有效列数
    ReDim arr(1 To matchingRows.Count, 1 To wsInv.UsedRange.Columns.Count)
    Dim rowIdx As Long: rowIdx = 1
    For Each row In matchingRows
        Dim colIdx As Long
        For colIdx = 1 To UBound(row)
            arr(rowIdx, colIdx) = row(colIdx)
        Next colIdx
        rowIdx = rowIdx + 1
    Next row
    ' 一次性赋值给ListBox，比逐行添加更快
    ListBox1.List = arr
End If

关键说明 #

1. 原代码中ListBox1.List = row会覆盖整个ListBox内容，这是只显示最后一行匹配结果的根本原因。
2. 字典匹配的优势在于将匹配操作的时间复杂度从O(n*m) 降到O(n+m)，数据量越大，效率提升越明显。

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