VBA 宏根据变量行中的活动单元格插入行

Question

我有一张 Excel 工作表，用于跟踪礼券销售和兑换。有时兑换金额（Q 列）小于总可用金额（H 列）。兑换金额目前变为红色，以警告员工有信用额度，但他们随后手动更改工作表。我如何编写宏/触发事件以在 Q 列中的活动单元格下方插入一行以将原始行数据复制到新行，更改（H新的 （H原来的 -米原文）然后H原文至米原文。我被难住了，因为列表是按字母顺序排列的，所以行是可变的。

Answer 1

根据您的主要问题，您可以使用以下行在活动单元格下方插入一行。

'Insert row below active cell ActiveCell.Offset(1).EntireRow.Insert

不幸的是，我不明白你试图解释的复制粘贴例程的目的。但使用复制范围命令，我认为你可以做到这一点：

ActiveWorksheet.Range("A1:K" & your_variable_end_of_copy_area).Copy ActiveWorksheet.Range("your_variable_destination_to_insert")

如果您粘贴已有的代码，我可以更好地帮助您。