1
この構文を使用して列Dの合計行を追加しましたが、今度はD - Mの合計行を追加する必要があります。列名には列D〜Mの下端に合計行を追加できる、すばやく再利用可能な関数がありますか?列の合計行を追加するD - M
With ActiveSheet
If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
lastrow = .Cells.Find(What:="*", _
After:=.Range("D1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
Else
lastrow = 1
End If
End With
Range("D" & lastrow +1).FormulaR1C1 = "=SUM(R[-" & lastrow & "]C:R[-1]C)"
優秀な、私の答えを持って、新しいVBA関数を学びました。ありがとうございました! –