如何在使用vba的合并单元格的情况下求和范围

Question

我有以下情况

连续三个单元格（1800,323,900）和一个合并单元格（28）。我有这样一个完整的专栏。那么如何使用vba将左列中每个值的总和与28相加并将其中的每一个粘贴到相应的最右列中。所以期望的输出是：

我尝试使用range.formula，但它似乎不起作用。

由于

Answer 1

使用合并的第一个行号引用合并的单元格。因此，如果合并了单元格B1到B3，则合并的单元格始终为B1。

如果我们假设您的数据位于A列，从B列第1行开始的合并单元格以及您希望在C列中插入的公式，则可以使用以下代码：

Sub Sum_Merged()

Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=RC[-2]+R1C2"

End Sub

如果这些假设中的任何一个是错误的，那么只需用相关的字母和数字替换上面的列/行。