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

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