如何实现向第2行输入数据时自动新增新的第2行？

实现方案（VBA宏） #

直接通过工作表的变更事件触发自动插行，完美保留原行格式与下拉规则：

1. 打开目标工作表的VBA编辑器

   • 右键工作表标签（如「Sheet1」），选择「查看代码」
   • 或按快捷键Alt + F11打开编辑器后定位到对应工作表

2. 粘贴以下代码

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监控第2行的6列（A-F列，可按需调整）
    If Not Intersect(Target, Me.Rows(2).Columns("A:F")) Is Nothing Then
        ' 关闭事件触发，避免循环执行
        Application.EnableEvents = False
        
        ' 在第3行插入新行，复制第2行的格式与数据验证规则
        Me.Rows(3).Insert Shift:=xlDown
        Me.Rows(2).Copy
        Me.Rows(3).PasteSpecial Paste:=xlPasteFormats
        Me.Rows(3).PasteSpecial Paste:=xlPasteValidation
        
        ' 清空新行内容，仅保留格式和下拉选项
        Me.Rows(3).ClearContents
        
        ' 恢复事件触发
        Application.EnableEvents = True
        
        ' 自动定位到第2行第一个空单元格（提升操作流畅度）
        On Error Resume Next
        Me.Rows(2).SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
        On Error GoTo 0
    End If
End Sub

3. 关键说明
   • 只要第2行的A-F列任意单元格输入内容，就自动在第3行插入新行
   • 新行会完全继承第2行的所有格式（包括自动换行）和数据验证规则（下拉选项）
   • 插入后自动清空新行内容，不干扰后续输入

注意事项 #

• 保存文件时需选择「Excel启用宏的工作簿（*.xlsm）」格式，否则宏会失效
• 需调整监控列范围的话，修改代码里的Columns("A:F")即可（比如改为Columns("C:H")）
• 测试时直接在第2行输入内容，新行会自动生成，原第2行内容保留，可继续在第2行输入新数据

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