excel - VBA中的SUM函数 - 一行中不同列的总和

Question

我可以使用 SUM 函数对同一行中的两列或多列求和吗？

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