如何用VBA实现Excel中Listbox数据的实时更新？

步骤1：重构UserForm代码，提取刷新逻辑 #

把原有的加载代码抽成独立的公共子过程，方便后续触发调用：

Private Sub UserForm_Activate()
    RefreshListBox
End Sub

Public Sub RefreshListBox()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("DataStorage")
    Dim i As Integer
    Dim lastRow As Long
    
    Application.ScreenUpdating = False
    Me.ListBox1.Clear
    
    ' 更可靠的获取BP列最后一行数据的方式（避免中间空行导致漏加载）
    lastRow = sh.Cells(sh.Rows.Count, 68).End(xlUp).Row
    
    For i = 2 To lastRow
        ' 跳过空单元格，避免ListBox出现空项
        If sh.Cells(i, 68).Value <> "" Then
            Me.ListBox1.AddItem sh.Cells(i, 68).Value
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

步骤2：添加工作表变更监听事件 #

打开DataStorage工作表的代码窗口（右键工作表标签→查看代码），添加以下代码，监听BP列的内容变化，自动刷新ListBox：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当变更发生在BP列（第68列）时触发刷新
    If Not Intersect(Target, Me.Columns(68)) Is Nothing Then
        ' 遍历已加载的窗体，找到目标窗体并调用刷新方法
        Dim uf As Object
        For Each uf In UserForms
            ' 替换成你的UserForm实际名称，比如UserForm1
            If TypeName(uf) = "你的UserForm名称" Then
                uf.RefreshListBox
                Exit For
            End If
        Next uf
    End If
End Sub

关键注意事项 #

• 必须将代码中的你的UserForm名称替换为你实际使用的窗体名称（比如你的窗体叫UserForm1就改成这个）。
• 用lastRow = sh.Cells(sh.Rows.Count, 68).End(xlUp).Row替代原有的Application.CountA(sh.Range("BP:BP"))，可以避免BP列中间有空行时，后面的数据无法加载的问题。
• 如果需要支持批量修改（比如粘贴多行数据到BP列），当前逻辑也能正常触发刷新，因为Intersect会检测到目标区域与BP列的交集。

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