SUM関数で合計計算！実務で使えるVBAコード作成

Option Explicit

Sub 合計計算法1()
    Dim i As Long
    Dim ArowD As Long, ArowU As Long
    Dim Va As Long, aVa As Long, Vb As Long, aVb As Long
'A列で上から数えてデータの始まり行を調べる
        ArowD = Cells(1, 1).End(xlDown).Row
'A列で下から数えてデータの終わりの行を調べる
        ArowU = Cells(Rows.Count, 1).End(xlUp).Row
'積算合計の変数を初期化する
        aVa = 0
        aVb = 0
        For i = ArowD To ArowU
            Va = Cells(i, 10)
            Vb = Cells(i, 11)
            aVa = aVa + Va
            aVb = aVb + Vb
        Next i
'積算合計を表の最終行の下に表示する
        Cells(ArowU + 1, 10) = aVa
        Cells(ArowU + 1, 11) = aVb
End Sub

Sub 合計計算法2()
    Dim ArowD As Long, ArowU As Long
'A列で上から数えてデータの始まり行を調べる
        ArowD = Cells(1, 1).End(xlDown).Row
'A列で下から数えてデータの終わりの行を調べる
        ArowU = Cells(Rows.Count, 1).End(xlUp).Row
'積算合計の関数式を表の最終行の下に挿入する
        Cells(ArowU + 1, 10) = "=SUM(J" & ArowD & ": J" & ArowU & ")"
        Cells(ArowU + 1, 11) = "=SUM(K" & ArowD & ": K" & ArowU & ")"
End Sub

Sub 合計計算法3()
    Dim ArowD As Long, ArowU As Long
'A列で上から数えてデータの始まり行を調べる
        ArowD = Cells(1, 1).End(xlDown).Row
'A列で下から数えてデータの終わりの行を調べる
        ArowU = Cells(Rows.Count, 1).End(xlUp).Row
'積算合計の表示セルに計算結果を表示する
        Cells(ArowU + 1, 10) = WorksheetFunction. _
            Sum(Range(Cells(ArowD, 10), Cells(ArowU, 10)))
        Cells(ArowU + 1, 11) = WorksheetFunction. _
            Sum(Range(Cells(ArowD, 11), Cells(ArowU, 11)))
End Sub

Sub 合計計算法4()
    Dim i As Long
    Dim ArowD As Long, ArowU As Long
    Dim ArowDa As Long, ArowUa As Long
'A列で上から数えてデータの始まり行を調べる(初期値)
        ArowD = Cells(1, 1).End(xlDown).Row
'A列で下から数えてデータの終わりの行を調べる(初期値)
        ArowU = Cells(Rows.Count, 1).End(xlUp).Row
'J列で連続してデータ入力されている行数を調べる(初期値)
        ArowDa = Cells(ArowD, 10).End(xlDown).Row
'初期値の代入
        ArowUa = ArowU
        For i = ArowD To ArowU
            If ArowDa <> ArowUa Then
                Rows(ArowDa + 1).Delete
'空白行の削除が終われば「上から」と「下から」が同数になる
            ElseIf ArowDa = ArowUa Then
'この条件を満たす時　For Nextを抜ける
                Exit For
            End If
'行の削除後に行数が変化。行数を再度調べる
            ArowDa = Cells(ArowD, 10).End(xlDown).Row
'行の削除後に行数が変化。行数を再度調べる
            ArowUa = Cells(Rows.Count, 1).End(xlUp).Row
        Next i
'積算合計の表示セルに計算結果を表示する
        Cells(ArowUa + 1, 10) = WorksheetFunction. _
            Sum(Range(Cells(ArowD, 10), _
        Cells(ArowUa, 10)))
        Cells(ArowUa + 1, 11) = WorksheetFunction. _
            Sum(Range(Cells(ArowD, 11), _
        Cells(ArowUa, 11)))
End Sub