求助：Excel删除行时自动删除Checkbox（已尝试多种方法无效）

以下是两种针对不同类型复选框的可行VBA实现方案，解决删除行时同步删除对应复选框的问题：

针对「表单控件」复选框的方案 #

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 在左侧「工程资源管理器」中双击需要实现功能的工作表（如Sheet1）
3. 在右侧代码窗口粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cb As CheckBox
    Dim deletedRows As Range
    Dim cell As Range
    
    ' 排除全选删除的误触发
    If Target.Rows.Count = Me.Rows.Count Then Exit Sub
    On Error Resume Next
    Set deletedRows = Intersect(Target.EntireRow, Me.UsedRange)
    On Error GoTo 0
    
    If Not deletedRows Is Nothing Then
        ' 遍历所有表单控件复选框
        For Each cb In Me.CheckBoxes
            Set cell = cb.TopLeftCell
            ' 检查复选框所在行是否在删除范围内
            If Not Intersect(cell.EntireRow, deletedRows) Is Nothing Then
                cb.Delete
            End If
        Next cb
    End If
End Sub

4. 将文件保存为「Excel 启用宏的工作簿（.xlsm）」格式
5. 测试：插入表单控件复选框到任意行，删除该行后对应复选框会自动被删除

针对「ActiveX控件」复选框的方案 #

如果你的复选框是ActiveX类型，替换为以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oleObj As OLEObject
    Dim deletedRows As Range
    Dim cell As Range
    
    If Target.Rows.Count = Me.Rows.Count Then Exit Sub
    On Error Resume Next
    Set deletedRows = Intersect(Target.EntireRow, Me.UsedRange)
    On Error GoTo 0
    
    If Not deletedRows Is Nothing Then
        ' 遍历所有ActiveX复选框
        For Each oleObj In Me.OLEObjects
            If oleObj.progID = "Forms.CheckBox.1" Then
                Set cell = oleObj.TopLeftCell
                If Not Intersect(cell.EntireRow, deletedRows) Is Nothing Then
                    oleObj.Delete
                End If
            End If
        Next oleObj
    End If
End Sub

常见问题排查 #

• 确保代码粘贴在目标工作表的代码模块中，而非普通模块
• 打开文件时必须允许宏运行（Excel会弹出安全提示，选择「启用内容」）
• 确认复选框的类型：右键复选框，若显示「指定宏」则是表单控件，若显示「属性」则是ActiveX控件

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