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

我有以下情况

它们是连续的三个小区（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 

如果有任何假设是错误的，那么只需用相关的字母和数字replace上面的列/行。