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

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

Example: Column : ABCDE 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