对已用区域的特定行求和

Question

我知道如何找到最后一行，并为其添加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

Answer 1

这样的东西会在第O列中得到G+H：

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