使用范围的特定行总和

问题描述:

我知道如何找到最后一行,并在其中添加了一个SUM(),但我如何在O列中使用SUM(G+H)使用范围的特定行总和

我会用它来得到最后一行和总和列,这怎么可能转换为总和行?

With ws 
If Application.WorksheetFunction.CountA(.Cells) <> 0 Then 
    LastRow = .Cells.Find(What:="*", _ 
        After:=.Range("A1"), _ 
        LookAt:=xlPart, _ 
        LookIn:=xlFormulas, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlPrevious, _ 
        MatchCase:=False).Row 
    Else 
    LastRow = 1 
    End If 
    .Range("C" & LastRow + 1).FormulaR1C1 = "=SUM(R[-" & LastRow & "]C:R[-1]C)" 
    .Range("C" & LastRow + 1 & ":M" & LastRow + 1).FillRight 
End With 
+0

FWIW - '” = SUM(R [ - “&LastRow&”] C:R [-1] C)“'可以简化为'”= SUM(R1C:R [-1] C)“' - 公式将原来的单元格C1开始,而另一种方法将从单元格C $ 1开始,但是差别在于如果你使用它的方式,相对或绝对行地址应该不重要。 – YowE3K

像这样的事情会得到G + HO列:

Sub testme() 
    Dim l_counter As Long 

    For l_counter = 1 To 100 
      ActiveSheet.Cells(l_counter, 15).FormulaR1C1 = "=RC7+RC8" 
    Next l_counter 

End Sub 

只要确保你改变100给一个变量,你的情况,LASTROW