连续多列求和

罗伯特·霍尔

我需要能够将数字从一个表列添加到另一表列

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

斯科特·克莱纳(Scott Craner)

创建一列范围,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)))

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章