Excel VBA清除列表框内容及选中项失效问题求助

试试这几个实用的解决办法，针对你遇到的选中行高亮无法清除的情况：

方法1：彻底清空列表框并强制刷新 #

直接清空列表框的List集合，再重置数据源并强制窗体刷新，能解决大部分缓存导致的高亮残留问题：

Private Sub ClearListBox()
    ' 清空列表框所有内容
    UserForm5.lstOpenO.Clear
    ' 解除数据源绑定
    UserForm5.lstOpenO.RowSource = ""
    ' 确保无选中项
    UserForm5.lstOpenO.ListIndex = -1
    ' 强制刷新窗体，消除视觉残留
    UserForm5.Repaint
End Sub

方法2：重置数据源并仅加载列标题 #

如果需要保留搜索工作表的列标题显示，先清空数据行再重新绑定数据源：

Private Sub RefreshListBoxWithHeaders()
    Dim wsSearch As Worksheet
    Set wsSearch = ThisWorkbook.Worksheets("搜索工作表") ' 替换为你的实际工作表名称
    
    ' 清空标题行以外的所有数据
    wsSearch.Rows("2:" & wsSearch.Rows.Count).ClearContents
    
    ' 重新绑定数据源，仅包含列标题行
    UserForm5.lstOpenO.RowSource = wsSearch.Name & "!A1:" & wsSearch.Cells(1, wsSearch.Columns.Count).End(xlToLeft).Address
    ' 取消选中状态
    UserForm5.lstOpenO.ListIndex = -1
    ' 刷新窗体
    UserForm5.Repaint
End Sub

方法3：转移焦点后再清空 #

有时候高亮残留是因为列表框仍持有焦点，先把焦点转移到其他控件再操作：

Private Sub ClearListBoxAndFocus()
    ' 转移焦点到窗体上的其他控件（比如Label1，替换为你窗体上实际存在的控件）
    UserForm5.Label1.SetFocus
    ' 清空列表框
    UserForm5.lstOpenO.Clear
    UserForm5.lstOpenO.RowSource = ""
    UserForm5.lstOpenO.ListIndex = -1
End Sub

补充说明 #

之前的方法无效大概率是因为：

• 用RowSource绑定数据源时，直接设置Selected=False或ListIndex=-1可能受数据缓存影响，没真正生效；
• 清空搜索工作表后未重新设置RowSource，列表框仍保留旧的选中状态缓存；
• 视觉上的高亮残留需要用Repaint强制窗体刷新才能消除。

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