Суммировать несколько столбцов подряд

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 no l oop, если вы хотите получить сумму всех данных в этих столбцах:

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

Если вы хотите, чтобы строка за строкой держите l oop и используйте:

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