嘿，作为Excel VBA新手你已经搞定了筛选、加载ListBox和取消筛选这些基础功能，很棒！针对你需要新增的「通过InputBox指定行数来限制ListBox加载数据量」的需求，我给你调整了代码，同时加了一些实用的细节处理，一起来看看：

核心改动点 #

• 新增InputBox获取用户输入，同时加入输入有效性验证（防止用户输入非数字、负数或者取消输入）
• 在遍历筛选后可见单元格时加入计数逻辑，达到指定行数就停止加载
• 每次加载前清空ListBox，避免重复添加旧数据
• 保留你原有的筛选和取消筛选核心逻辑

修改后的完整代码 #

Private Sub CommandButton1_Click()
    Dim userInput As Variant
    Dim maxRows As Long
    Dim rowCount As Long
    Dim oneCell As Range
    
    ' 1. 获取用户输入并做有效性检查
    userInput = InputBox("请输入需要显示的行数：", "指定显示行数", 5) ' 设置默认值为5，方便用户直接确认
    ' 处理用户取消输入、输入空值或非数字的情况
    If userInput = "" Or Not IsNumeric(userInput) Then
        MsgBox "请输入有效的正整数哦！", vbExclamation
        Exit Sub
    End If
    maxRows = CLng(userInput)
    ' 确保输入的行数至少为1
    If maxRows < 1 Then
        MsgBox "行数不能小于1呀！", vbExclamation
        Exit Sub
    End If
    
    ' 2. 先清空ListBox，避免多次点击后数据重复叠加
    ListBox1.Clear
    
    ' 3. 执行筛选并加载指定行数的数据
    With Sheet1.ListObjects("Table1")
        ' 筛选Field3值为FALSE的行
        .Range.AutoFilter Field:=3, Criteria1:="FALSE"
        
        ' 遍历"Plate ID"列的可见单元格，只加载指定行数
        rowCount = 0
        For Each oneCell In .ListColumns("Plate ID").DataBodyRange.SpecialCells(xlCellTypeVisible)
            ListBox1.AddItem CStr(oneCell.Value)
            rowCount = rowCount + 1
            ' 达到指定行数就终止循环，不用再遍历剩下的单元格
            If rowCount >= maxRows Then
                Exit For
            End If
        Next oneCell
        
        ' 取消筛选，恢复显示全部数据
        .Range.AutoFilter Field:=3
    End With
End Sub

代码细节说明 #

• 输入验证：加入了多层检查，避免因为用户的无效输入导致程序报错，同时用友好的提示框引导用户正确操作。
• ListBox清空：每次点击按钮前先清空ListBox，这是个很实用的小细节，防止多次点击后ListBox里堆满重复数据。
• 计数终止逻辑：用rowCount变量记录已经加载的行数，每添加一行就+1，当达到用户指定的maxRows时直接退出循环，节省不必要的遍历操作。
• 优化表格引用：把你原来的Sheets("Sheet1").Range("Table1[Plate ID]")改成了Sheet1.ListObjects("Table1").ListColumns("Plate ID").DataBodyRange，这种方式更直接地引用表格的列数据，代码可读性和稳定性都更好。

这样修改后，你就能实现想要的功能：点击按钮后弹出输入框，输入数字（比如5），ListBox就只会加载筛选后的前5行数据啦～

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