将单元格值添加到活动单元格

Question

我想创建一个宏，将活动单元格（例如B1）正下方（例如B2）的单元格上的值添加到活动单元格本身的值，然后清除单元格B2。因此，B1等于B1 + B2（如果B1 = 23且B2 = 2，那么B1的值将为25。如何处理？

example image

Answer 1

您可以使用“偏移”功能来查找相对于活动单元格的单元格：

ActiveCell.Value = ActiveCell.Value + ActiveCell.Offset(1).Value
ActiveCell.Offset(1).ClearContents

在这种情况下，我们正在活动单元格下面查找1行，但是如果需要，您可以执行以下操作

ActiveCell.Offset(-1)