excel - 对一行中的多列求和

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)))