VBA如何实现勾选checkbox为TRUE时删除对应整行及所属checkbox

你遇到的复选框残留问题核心原因是：Excel 中的复选框默认不会绑定到所在行，删除行时不会自动同步删除对应位置的控件，你可以选择以下任意一种方案解决：

方案1：修改复选框属性（一劳永逸，后续无需额外代码） #

• 选中所有复选框，右键点击「设置控件格式」
• 切换到「属性」选项卡，选择「大小和位置均随单元格而变」
• 确认后再运行你现有的删除行代码，控件就会跟随所在行一起被删除

方案2：直接在现有VBA代码中补充删除控件逻辑（无需修改控件属性） #

你可以参考以下逻辑调整你的现有脚本：

Sub DeleteCheckedRows()
    Dim i As Long
    Dim chk As CheckBox
    ' 从最后一行往前遍历，避免删行导致行号错乱
    For i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        ' 遍历当前行的所有复选框
        For Each chk In ActiveSheet.CheckBoxes
            If chk.TopLeftCell.Row = i Then
                ' 如果复选框勾选，先删控件再删行
                If chk.Value = 1 Then
                    chk.Delete
                    Rows(i).Delete
                    Exit For ' 删完当前行控件直接进入下一行判断
                End If
            End If
        Next chk
    Next i
End Sub

代码说明 #

• 遍历顺序必须从下往上，否则删除行后会跳过后续行的判断
• 先通过控件的TopLeftCell.Row属性确认控件所在行，匹配上勾选状态后先删除控件再删除行，不会出现残留问题

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