Сумма, основанная на rows.count

Question

Я пытаюсь сложить числа в столбце, но столбец чисел меняется, поэтому я использую Rows.Count вместо установленного количества строк, например "a1:a5".Каждый раз, когда я запускаю это, я получаю количество строк (представленное как rngcount), но вместо суммы ячеек в числе строк (rngcount) я снова получаю количество строк.

Я получал объектную ошибку (1004), пока не добавил "a" к .Range("a" & rngcount), но признаюсь, я не уверен, зачем нужен "a", поскольку я думал, что rngcount будет всемэто необходимо для Sum.

Так что, к сожалению, два вопроса в одном посте.

Sub simpleSUM()

Dim rng1 As Range
Dim rng2 As Range
Dim rngcount As Integer

Set rng1 = Range("b1") 'This indicates how many cells are in use
Set rng2 = Range("b2") 'This indicates the sum of the cells that are in use

rngcount = cells(Rows.Count, "A").End(xlUp).row

rng1.Value = rngcount
rng2.Value = Application.WorksheetFunction.Sum(ThisWorkbook.Sheets("sheet2").Range("a" & rngcount))
End Sub

Answer 1

Ваш код теперь учитывает только последнюю строку.Переменная rngcount возвращает последнее число в диапазоне вместо всего диапазона.

Должно работать, если вы используете

rng2.Value = Application.WorksheetFunction.Sum(Thisworkbook.Sheets("sheet2").Range("A1:A" & rngcount))