UserForm与Excel表格同步删除项异常：最后一项未从表格移除

你的核心问题出在选中项收集循环的初始化错误，以及重复弹出提示框的冗余问题，以下是具体修复方案：

错误点1：选中项收集循环的起始值未正确初始化 #

原代码中For s = s To Me.ListboxResult.ListCount - 1的写法存在隐患：变量s未提前赋值，默认初始值为0时看似能运行，但如果代码上下文里s有其他赋值记录，会导致循环跳过部分项（比如最后一项可能没被加入选中集合），最终出现ListBox删了但工作表没删的情况。

错误点2：重复弹出提示框 #

原代码在删除每个项时都弹一次提示，且最后空列表时又弹一次，体验不佳，应该合并为单次提示。

修正后的完整代码 #

Dim s As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Data")
Dim selectedItems As New Collection

' 正确初始化循环起始值，遍历ListBox所有项（索引从0开始）
For s = 0 To Me.ListboxResult.ListCount - 1
    If Me.ListboxResult.Selected(s) Then
        selectedItems.Add s
    End If
Next s

' 从后往前删除，避免索引偏移
If selectedItems.Count > 0 Then
    For s = selectedItems.Count To 1 Step -1
        Me.ListboxResult.RemoveItem selectedItems(s)
        ws.Rows(selectedItems(s) + 4).Delete
    Next s
    MsgBox "选中项已成功移除。", vbOKOnly, "移除成功"
End If

' 列表为空时取消复选框勾选
If Me.ListboxResult.ListCount = 0 Then
    Me.checkboxSelect.Value = False
End If

额外优化说明 #

关于你提供的单元格边框设置代码，它和当前删除问题无关，但可以简化写法提升效率：

With rng.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

这样就能确保选中项同时从ListBox和工作表中被移除，不会出现残留情况。

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