Excel VBA中如何不清空数据源仅清除列表框显示内容？

首先明确：完全不需要用两个工作表，你的问题核心是对列表框操作的误解，下面给你具体解决方法：

先澄清误区 #

你试过的 Listbox1.Clear、ListBox1.RowSource = ""、lstDatabase.RowSource = vbNullString 这些操作根本不会删除Excel工作表里的实际数据！

• RowSource = vbNullString/"" 只是解除列表框和工作表区域的绑定关系，列表框不再显示数据，但工作表里的内容原封不动；
• Clear 对于绑定了RowSource的列表框，其实会触发错误（绑定状态下不能直接清空列表项），如果你的工作表数据真的被清空了，大概率是其他关联代码导致的，和这些操作无关，建议排查其他修改工作表的代码。

正确的重置显示方法 #

根据你的需求，分两种场景：

场景1：暂时让列表框显示为空，之后可能重新加载数据

直接解除绑定即可：

TallySheet.lstdatabase.RowSource = vbNullString

这样列表框就变成空白，但工作表里的所有数据都保留着，之后想重新显示数据，再运行你原来的绑定代码就行（把你那段绑定RowSource的代码做成一个独立的Sub，方便调用）。

场景2：重置列表框为初始的空加载状态（比如回到只显示A2:E2的空行状态）

直接重新执行你最初的绑定逻辑，比如把你的代码封装成一个Sub：

Sub RefreshListBox()
    Dim iRow As Long
    iRow = [counta(Tally!A:A)]
    With TallySheet
        If iRow > 1 Then
            .lstdatabase.RowSource = "Tally!A2:E" & iRow
        Else
            .lstdatabase.RowSource = "Tally!A2:E2"
        End If
    End With
End Sub

需要重置时，直接调用 RefreshListBox 就行，这样列表框会重新根据工作表数据加载显示，完全不会影响原始数据。

额外注意 #

如果你的列表框是非绑定模式（不用RowSource，而是用AddItem手动添加项），那 Listbox1.Clear 只会清空列表框显示，和工作表数据完全无关，也可以考虑这种方式来避免绑定带来的误解。

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