VBA 插入行并用下面单元格中的日期减 1 填充单元格

Question

我有这张纸：

A 栏有日期。我需要的是在第一行上方插入一行（这不是工作表中的第一行） 此插入行必须为空，但日期必须为当前开始日期前一天（即 2021/08/18）

像这样：

我怎样才能实现这个目标？

Answer 1

1. 使用以下代码创建宏：

   子InsertRowSetFormula() '在活动单元格上方插入行： ActiveSheet.Range("A" & ActiveCell.Row).EntireRow.Insert '在活动单元格中分配所需的公式：负1下方的单元格 ActiveCell.FormulaR1C1 = "=R[1]C-1" 结束子

2. 选择范围中的第一个单元格：A 列上的单元格 包含值 (2021/08/19)，然后应用宏