如何在Excel UserForm中按指定空白列过滤ListBox数据？

问题分析 #

你的代码核心问题在于循环内直接给RowSource赋值整个数据区域——只要有任意一行第14列是空值，就会把A2:N&lastRow这个完整区域设为ListBox的数据源，自然会显示所有记录，筛选逻辑完全失效。

另外还有两个细节错误：

• ColumnWidths里最后一个分隔符误用了逗号，应该统一使用分号
• 你要展示的是A到O列（共15列），但RowSource写的是A2:N，少了一列数据

修正方案 #

以下提供两种可行实现方式，按需选择：

方式1：逐行添加符合条件的记录（灵活可控） #

手动遍历每一行，仅将第14列为空的记录添加到ListBox，适合需要自定义处理的场景：

Sub UpdateListBox()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Database")
    Dim lastRow As Long, i As Long, j As Long
    lastRow = ws.Cells(ws.Rows.Count, "O").End(xlUp).Row
   
    With frmOpenRecords.lstOpenRecords
        .Clear
        .ColumnCount = 15
        .ColumnHeads = True
        .ColumnWidths = "60; 80; 60; 100; 180; 100; 100; 250; 250; 65; 70; 80; 105; 100; 50" '修正分隔符为分号
        .TextAlign = fmTextAlignLeft
        .Font.Size = 10
        ' 手动添加表头（避免ColumnHeads失效的情况）
        .AddItem
        For i = 1 To 15
            .List(0, i - 1) = ws.Cells(1, i).Value
        Next i
    End With
  
    ' 逐行筛选并添加符合条件的记录
    For i = 2 To lastRow
        ' 同时处理单元格为空、仅含空格的情况
        If Trim(ws.Cells(i, 14).Value) = "" Then
            With frmOpenRecords.lstOpenRecords
                .AddItem
                For j = 1 To 15
                    .List(.ListCount - 1, j - 1) = ws.Cells(i, j).Value
                Next j
            End With
        End If
    Next i
End Sub

方式2：使用工作表筛选+临时区域（适合大量数据） #

利用Excel原生筛选功能，将筛选结果作为ListBox数据源，性能更优：

Sub UpdateListBox_Filter()
    Dim ws As Worksheet, tempRange As Range
    Set ws = ThisWorkbook.Sheets("Database")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "O").End(xlUp).Row
    
    ' 清除原有筛选状态
    ws.AutoFilterMode = False
    
    ' 筛选第14列空值
    ws.Range("A1:O" & lastRow).AutoFilter Field:=14, Criteria1:=""
    
    ' 获取筛选后的可见数据区域（排除表头）
    On Error Resume Next
    Set tempRange = ws.Range("A2:O" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    With frmOpenRecords.lstOpenRecords
        .Clear
        .ColumnCount = 15
        .ColumnHeads = True
        .ColumnWidths = "60; 80; 60; 100; 180; 100; 100; 250; 250; 65; 70; 80; 105; 100; 50"
        .TextAlign = fmTextAlignLeft
        .Font.Size = 10
        ' 设置数据源
        If Not tempRange Is Nothing Then
            .RowSource = tempRange.Address(External:=True)
        Else
            .AddItem "无符合条件的记录"
        End If
    End With
    
    ' 关闭工作表筛选
    ws.AutoFilterMode = False
End Sub

关键说明 #

• 方式1手动控制每一行的添加，可灵活扩展数据处理逻辑（如格式化内容）；
• 方式2依赖Excel原生筛选，数据量较大时性能更出色；
• 使用Trim()判断空值，能排除单元格仅含空格的无效数据；
• ColumnWidths必须统一使用分号作为分隔符，否则列宽设置会出错。

内容的提问来源于stack exchange，提问作者Jorge Omar David Gonzalez