excel - VBAのSUM関数 - 1行の異なる列の合計

Question

SUM 関数を使用して、同じ行の 2 つ以上の列を合計できますか?

Example:  
Column  : A B C D E  
Total   : 1 2 3 4 5
TotColAC: 4 6 (TotColBD)

SUM関数を使用することは可能ですか、それとも別の方法がありますか?

ありがとうございました！

Answer 1

VBA を使用します。A1 から E1 にセルを追加します。要件に応じて変更できます。

Sub Add()
    Dim totalAtoE As Double
    totalAtoC = WorksheetFunction.Sum(Range("A1:E1"))
End Sub

A1とC1のみ

Sub AddAandC()
    Dim totalAandC As Double
    totalAandC = WorksheetFunction.Sum(Range("A1"), Range("C1"))
End Sub

あなたのコメント通り

Sub Add()

Dim lastRow As Long, i As Integer, totalAtoC As Double, FinalSum As Double
lastRow = Range("A5000").End(xlUp).Row

For i = 1 To lastRow
    totalAtoC = totalAtoC + WorksheetFunction.Sum(Range("A" & i & ":C" & i))
Next
FinalSum = totalAtoC

End Sub