Excel表格新增行时M、N列自动变为勾选框的VBA问题求助

方案1：新增行自动设为未勾选 #

在工作表的VBA代码窗口中，保留你原有的双击切换代码，再添加以下事件处理程序——它会在插入新行时，自动将该行的M、N列设置为未勾选状态（Chr(168)）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim insertedRow As Range
    ' 判断是否为插入整行的操作
    If Target.Rows.Count > 0 And Target.Columns.Count = Me.Columns.Count Then
        For Each insertedRow In Target.Rows
            Me.Cells(insertedRow.Row, "M").Value = Chr(168)
            Me.Cells(insertedRow.Row, "N").Value = Chr(168)
        Next insertedRow
    End If
End Sub

方案2：空单元格双击才触发勾选切换 #

如果你希望新增行的M、N列先保持为空，双击时再切换勾选状态，可以修改原有的双击事件代码，补充空单元格的处理逻辑：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("M:N")) Is Nothing Then
        Select Case Target.Value
            Case Chr(254)
                Target.Value = Chr(168)
            Case Chr(168), "" ' 空单元格双击直接切换为勾选状态
                Target.Value = Chr(254)
        End Select
        Cancel = True
    End If
End Sub

额外技巧（结构化表格适用） #

如果你的表格是Excel自带的结构化表格（带表头的那种），无需编写VBA也能解决：选中M列或N列，右键选择「表格列」→「设置列默认值」，输入=CHAR(168)并确定，新增行时该列会自动填充未勾选状态。

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