Excel VBA - 插入具有相对值的值

Question

感谢专家的帮助！

我正在尝试编写代码：

1. 我选择一个单元格并执行宏（假设单元格是 L30）
2. VBA 复制包含活动单元格的整行（复制第 30 行的整个数据（公式和硬编码数字的混合））
3. VBA 在复制的行下方插入一个新行（因此第 30 行中的数据下移到第 31 行）

4. VBA 使用公式和复制行（第 30 行）中的硬编码数字粘贴新行（第 31 行）

5. 在新行的 O 列中，VBA 从单元格“O4”插入数值，但符号相反（O7 有一个数字，但它基于公式）

6. 在新行的列 P 中，VBA 从单元格“R4”插入数字值，但符号相反（R4 也有数字，但它基于公式）

7. 在 P30 中，VBA 插入一个公式，其中“=原始 P30 值 - P31”

我已经编写了下面的代码。这似乎完成了 1、2、3、4、5，但仅完成了部分 4 和 5，因为我似乎无法为值 O7 和 R4 加上负号并将它们插入新行。

第 6 步.. 是我什至无法完成的事情......

我知道这是我要求的很多步骤。
一些指导或提示将不胜感激。

谢谢，

ActiveCell.Offset(1, 0).EntireRow.INSERT
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow

Range("O4").Copy ActiveCell.Offset(1, 4)
Range("R4").Copy ActiveCell.Offset(1, 5)

Answer 1

试试这个：

Dim r As Range, nrow As Long, orow As Long
Set r = ActiveCell
nrow = r.Offset(1, 0).Row: orow = r.Row
r.EntireRow.Copy
r.Offset(1, 0).Insert xlDown

Range("O" & nrow) = -Range("O4") 'reverse the sign
Range("P" & nrow) = -Range("P4") 'reverse the sign
With Range("P" & orow)
    .Value = .Value - .Offset(1, 0).Value
End With

对于第 7 步，您不能将其分配为公式，因为那将是循环引用。
上面的代码已经将结果放在 P30 中（基于上面的示例）。 HTH。