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

时间:2013-03-03 04:50:33

标签: excel vba

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

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

是否可以使用SUM函数或有其他方法吗?

谢谢!

1 个答案:

答案 0 :(得分:6)

使用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