使用公式中的另一个范围更新一系列公式

我试图找出如何更新引用连续列的一次单元格范围。 基本上,我将用于特定单元格公式的代码是这样的:

Range("C10").Formula = "SUMIF('Site Data '!$CR:$CR,$B$1,'Site Data '!$CU:$CU)" 

我想要这个公式从C10:C25和$ CU去CU:DJ。 我似乎无法想出一个方法来做到这一点,而不是为每个公式创build一个新的行。

我只是做每一个,因为它只有16,但这是我需要更新的多组范围之一。

循环遍历行,将迭代var添加到.Columns函数中,并检索地址以连接到公式中。

 Dim i As Long With ActiveSheet For i = 10 To 25 .Cells(i, "C").Formula = "=SUMIF('Site Data '!$CR:$CR, $B$1, 'Site Data '!" & _ Worksheets("Site Data ").Columns(89 + i).Address & ")" Next i End With 

顺便说一句,这个公式也可以写成:

 =SUMIF('Site Data '!$CR:$CR, $B$1, INDEX('Site Data '!$CU:$DJ, 0, ROW(1:1))) 

放入C10并填写或作为,

 .range("C10:C25").formula = _ "=SUMIF('Site Data '!$CR:$CR, $B$1, INDEX('Site Data '!$CU:$DJ, 0, ROW(1:1)))"