如何筛选Table2中待审核记录并将序列号添加至ListBox？

核心思路 #

放弃原代码直接绑定整个表格的方式，改为遍历Table2的每一条记录，判断「Completed」列是否为空，仅将符合条件的A列序列号添加到ListBox中，同时确保加载前清空原有内容避免重复。

修改后的完整代码 #

Private Sub Workbook_Open()
    ' 初始化ListBox基础设置
    With Sheet1.ListBox1
        .ColumnHeads = True
        .ColumnCount = 1
        .AutoLoad = False ' 关闭自动加载，手动控制数据加载
    End With
    loaddata ' 调用筛选加载过程
End Sub

Sub loaddata()
    Dim listBox As Object
    Set listBox = Sheet1.ListBox1
    Dim tbl As ListObject
    Set tbl = Sheet2.ListObjects("Table2")
    Dim row As ListRow
    
    ' 清空ListBox现有内容
    listBox.Clear
    
    ' 遍历Table2的每一行数据
    For Each row In tbl.ListRows
        ' 通过列名判断Completed列是否为空（比硬编码P列更灵活，适配列位置变动）
        If row.Range(tbl.ListColumns("Completed").Index) = "" Then
            ' 将对应行的A列序列号添加到ListBox
            listBox.AddItem row.Range(tbl.ListColumns(1).Index).Value
        End If
    Next row
    
    ' 手动指定表头（复用Table2的A列表头）
    listBox.ColumnHeads = True
    Sheet1.Range("A1").Value = tbl.ListColumns(1).Name
    listBox.ListFillRange = "" ' 取消原有范围绑定，避免冲突
End Sub

关键细节说明 #

• 用ListObject操作表格：直接引用Excel表格对象，比用Range更稳定，即使后续表格插入/删除列，通过列名(ListColumns("Completed"))引用不会出错。
• 先清空再加载：避免重复执行时ListBox堆积旧数据。
• 关闭AutoLoad：工作表上的ListBox开启自动加载可能导致数据不受控，手动调用loaddata过程更可控。

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