在 Excel 中添加新行而不破坏使用 Range.Value 的 vba 宏

Question

我在 VBA 中编写了一个宏，它只是从该工作表中的另一个单元格填充给定单元格的值。我对工作表中的许多单元格执行此操作，并且这样做：

Range("B3").Value = Range("B200")
Range("B4").Value = Range("B201")
'etc.

现在，我经常通过插入新行来添加值，因此我可能会在 B200 和 B201 之间插入新行，这会破坏宏，因为当我插入新行时它不会自动更新。

如何对宏进行编码，以便在插入新行或新列时自动更新单元格引用？

Answer 1

我的建议是确保您要从中检索值的 ROW 中具有唯一值，您可以随时进行 .FIND 查找，然后从找到的单元格行的 B 列中获取您的值。因此，现在您想要获取 B200 中的值，而 A200 中始终包含文本：“最终总计”，这是唯一的。

Dim MyRNG As Range

Set MyRNG = Range("A:A").Find("Final Total", LookIn:=xlValues, LookAt:=xlWhole)
Range("B3").Value = Range("B" & MyRNG.Row)
Range("B4").Value = Range("B" & MyRNG.Row + 1)