如何使用VBA在指定行上方插入行并填充下方日期减1的日期值

基础固定行号版 #

如果已经明确要插入行的目标行号，可使用以下宏：

Sub InsertDateRow()
    Dim targetRow As Long
    ' 替换为你需要插入行的目标行号（比如要在第5行上方插入，就设为5）
    targetRow = 5
    
    ' 校验目标行合法性
    If targetRow <= 1 Then
        MsgBox "目标行不能是第一行，请重新指定！", vbExclamation
        Exit Sub
    End If
    
    ' 在目标行上方插入新行
    Rows(targetRow).Insert Shift:=xlDown
    
    ' 给新行A列赋值：下方单元格日期减1
    Cells(targetRow, "A").Value = Cells(targetRow + 1, "A").Value - 1
    
    ' 确保日期显示格式正确（可选，可根据需求调整格式字符串）
    Cells(targetRow, "A").NumberFormat = "yyyy/mm/dd"
End Sub

灵活选行版 #

如果需要手动选择目标行（选中该行任意单元格即可），推荐使用这个更便捷的版本：

Sub InsertDateRow_SelectRow()
    Dim selectedRow As Long
    selectedRow = Selection.Row
    
    If selectedRow <= 1 Then
        MsgBox "无法在第一行上方插入，请选择其他行！", vbExclamation
        Exit Sub
    End If
    
    Rows(selectedRow).Insert Shift:=xlDown
    Cells(selectedRow, "A").Value = Cells(selectedRow + 1, "A").Value - 1
    Cells(selectedRow, "A").NumberFormat = "yyyy/mm/dd"
End Sub

使用步骤 #

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧的工作簿名称，选择「插入」→「模块」
3. 将上述任意一段代码粘贴到模块窗口中
4. 若使用固定行号版，修改targetRow的值为你的目标行号
5. 按F5运行宏，或回到Excel界面，通过「开发工具」→「宏」选择对应宏运行

注意事项 #

• 确保目标行下方的A列单元格是有效日期格式，否则会返回错误值
• 日期格式字符串可根据需求修改，比如"mm/dd/yyyy"对应美式日期显示

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