VBA中点击ListBox删除选中列表项的实现方法

你原来的代码存在索引错乱问题：正向遍历列表时，删除某一项后后续所有项的索引会自动前移，会导致紧邻被删项之后的项被跳过，多选场景下会出现漏删。

适配多选场景的优化代码 #

Private Sub ListBox2_Click()
    Dim i As Integer
    ' 反向遍历避免删除操作影响未遍历项的索引
    For i = ListBox2.ListCount - 1 To 0 Step -1
        If ListBox2.Selected(i) Then
            ListBox2.RemoveItem i
        End If
    Next i
End Sub

单选场景简化写法 #

如果你的ListBox设置为单选模式，可以直接用选中索引删除，无需循环：

Private Sub ListBox2_Click()
    ' 仅当存在选中项时执行删除
    If ListBox2.ListIndex <> -1 Then
        ListBox2.RemoveItem ListBox2.ListIndex
    End If
End Sub

注意事项 #

• 调用RemoveItem方法无返回值时，参数无需额外加括号，避免VBA编译隐式转换报错
• 反向遍历的逻辑同样适用于ListView、ComboBox等同类列表控件的批量删除操作

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