对一行中的多列求和

Question

我需要能够将一个表格列中的数字加到另一个表格列中

For i = 1 To PayRatesTable.ListRows.Count
 x = PayRatesTable.ListColumns("Weekday").DataBodyRange(i).Value: 
 PayRatesTable.ListColumns("BLANK").DataBodyRange(i).Value
 MsgBox x
Next i

我想要做的是将红线之间的数字相加并将它们分配给 x

Answer 1

Application.Sum如果您希望获得这些列中所有数据的总和，则创建一系列列并且不需要循环：

x = Application.Sum(Worksheets("Sheet1").Range(PayRatesTable.ListColumns("Weekday").DataBodyRange, PayRatesTable.ListColumns("BLANK").DataBodyRange))

如果你想要一行一行，那么保持循环并使用：

x = Application.Sum(Worksheets("Sheet1").Range(PayRatesTable.ListColumns("Weekday").DataBodyRange(i), PayRatesTable.ListColumns("BLANK").DataBodyRange(i)))