创建一列范围,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] 删除。
我来说两句