删除列表项时Checkbox移位/重复问题的解决咨询

问题根源 #

你的代码存在细节逻辑问题，同时逐行删除工作表行并同步操作ListBox的方式，容易引发控件状态错乱：

• 变量声明不规范，存在未初始化的循环变量
• 冗余的selectedItems集合未实际参与逻辑
• 频繁交替操作工作表行与ListBox项，导致控件重绘时Checkbox状态异常

修复方案 #

调整逻辑为先批量收集待删除项标识，再批量处理工作表行删除，最后统一刷新ListBox，彻底避免控件状态错乱：

Dim n As Long, i As Long
Dim bSelected As Boolean
Dim c As Range
Dim ws As Worksheet
Dim colItem As Long, sItem As String
Dim deleteItems As Collection

Set ws = ThisWorkbook.Sheets("Data")
Set deleteItems = New Collection
colItem = 1 ' ListBox第2列对应标识

' 检查选中状态并收集待删除项
For n = 0 To Me.ListboxResult.ListCount - 1
    If Me.ListboxResult.Selected(n) Then
        bSelected = True
        deleteItems.Add Me.ListboxResult.List(n, colItem)
    End If
Next n

If Not bSelected Then
    MsgBox "请选择要删除的项目。", vbOKOnly, "需要选择"
    Exit Sub
End If

' 批量删除工作表对应行（关闭屏幕刷新避免状态错乱）
Application.ScreenUpdating = False
With ws
    For i = deleteItems.Count To 1 Step -1
        Set c = .Range("E:E").Find(deleteItems(i), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then c.EntireRow.Delete
    Next i
End With

' 统一刷新ListBox（根据你的数据源绑定方式二选一）
' 方式1：如果ListBox用RowSource绑定数据源
Me.ListboxResult.RowSource = ""
Me.ListboxResult.RowSource = ws.Range("A27:H" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Address

' 方式2：如果ListBox是手动添加项
' Me.ListboxResult.Clear
' Dim rngData As Range
' Set rngData = ws.Range("A27:H" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
' For Each c In rngData.Rows
'     Me.ListboxResult.AddItem c.Cells(1, 1).Value
'     Me.ListboxResult.List(Me.ListboxResult.ListCount - 1, 1) = c.Cells(1, 2).Value
'     ' 按需添加其他列数据
' Next c

Application.ScreenUpdating = True

关键优化点 #

• 批量操作逻辑：减少控件与工作表的交互次数，避免频繁重绘引发的移位
• 关闭屏幕刷新：Application.ScreenUpdating = False 彻底杜绝删除过程中的控件状态异常
• 统一数据源同步：删除完成后重新绑定/加载ListBox，确保控件状态与工作表数据完全一致
• 清理冗余代码：修正变量声明错误，移除未使用的集合，简化逻辑

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