HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > 空白行までのセルの値を合計する(ワークシート関数(SUM関数)を使用する)

即効テクニック

セル操作関連のテクニック

空白行までのセルの値を合計する(ワークシート関数(SUM関数)を使用する)

(Excel 97)
A列の2行目から空白行の前までのセルの値を合計します。
Endプロパティで空白行の前のセル行位置を取得して、変数BeforePosに代入します。空白行に、SUM関数と文字列と変数を組み合わせて、A列の2行目から空白行の前のセルまでの値を合計する文字列式をセットします。
Sub Sample()

    Dim BeforePos As Long

    BeforePos = Range("A2").End(xlDown).Row
    Cells(BeforePos + 1, 1).Formula = "=SUM(A2:A" & BeforePos & ")"

End Sub