从文本框加载数据的ListBox中删除多选行

你当前的代码只能删除单个选中项，因为ListIndex仅返回最后选中的项索引。要实现批量删除多选项，核心是从后往前遍历选中的项（避免删除前面项后导致后续索引移位），以下是修正后的代码：

With Me.ListBox3
    Dim selectedCount As Integer
    selectedCount = 0
    Dim i As Integer
    
    ' 统计选中项数量
    For i = 0 To .ListCount - 1
        If .Selected(i) Then selectedCount = selectedCount + 1
    Next i
    
    ' 无选中项时提示
    If selectedCount = 0 Then
        MsgBox "请先选择要删除的项", vbInformation, "提示"
        Exit Sub
    End If
    
    ' 批量确认删除
    If MsgBox("确认删除选中的 " & selectedCount & " 项吗？", vbYesNo + vbExclamation, "批量删除") = vbYes Then
        ' 从后往前遍历删除，防止索引混乱
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then .RemoveItem i
        Next i
    End If
End With

关键说明： #

• 遍历方向：必须从最后一项往第一项循环。如果从前往后删，删除前面的项后，后面的项索引会自动减1，导致后续的选中项索引错位，出现漏删。
• 选中判断：用Selected(i)检查第i项是否被选中，这是多选模式下判断选中状态的正确方式。
• 用户体验：先统计选中项数量，再弹出确认框，让用户明确知道要删除的项数；无选中项时给出提示，避免无效操作。

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