为Excel表格新行设置数据验证默认值

核心需求实现 #

针对你的项目跟踪表格，以下VBA代码可实现新增行时自动填充指定默认值，同时保留正确的数据验证规则：

步骤1：编写工作表事件代码 #

打开Excel，按Alt+F11进入VBA编辑器，双击目标工作表（如Sheet1），粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As ListObject
    Dim newRow As ListRow
    
    ' 禁用事件触发，避免循环执行
    Application.EnableEvents = False
    
    ' 替换为你的表格实际名称（如"项目跟踪表"）
    Set tbl = Me.ListObjects("Table1")
    
    ' 判断是否触发了表格的自动新增行操作
    If Not Intersect(Target, tbl.ListRows(tbl.ListRows.Count).Range.Offset(1)) Is Nothing Then
        ' 添加新行到表格
        Set newRow = tbl.ListRows.Add
        
        ' 给前4个Yes/No验证列设默认值"No"
        ' 此处Cells(1, X)的X为表格内的列索引（第1列是表格首列，以此类推）
        With newRow.Range
            .Cells(1, 2).Value = "No"
            .Cells(1, 3).Value = "No"
            .Cells(1, 4).Value = "No"
            .Cells(1, 5).Value = "No"
            ' 给状态列设默认值"None"
            .Cells(1, 6).Value = "None"
        End With
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

步骤2：适配你的表格配置 #

• 修改代码中的"Table1"为你的表格实际名称（在Excel界面选中表格，上方菜单栏会显示表格名称）
• 调整Cells(1, X)的X值：对应表格内需要设默认值的列位置（比如表格第2列是第一个Yes/No验证列，就用.Cells(1,2)）

关键说明 #

• 确保表格已开启自动新增行功能（表格右键→表格选项→勾选"在最后一行下方输入时自动添加行"）
• 提前设置好数据验证规则：前4列设为序列yes,no，最后一列设为序列None,Scheduled,completed，新增行会自动继承这些规则
• 代码通过Worksheet_Change事件自动触发，无需手动运行宏

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