Подсчет количества значений в столбце

Question

Подсчет количества значений в столбце

Рейтинг: 0Ответов: 1Опубликовано: 27.04.2023

Нужно подсчитать количество значений в столбцах с разных листов книги, использовал следующий код

Sub аа()
Dim a As String
Dim b, c As Double
a = Worksheets("январь 2023 фактический рк").Range("A3").End(xlDown).Row
b = Worksheets("январь 2023 фактический рк").Range("D3").End(xlDown).Row
c = Worksheets("Анализ РК").Range("B5").End(xlDown).Row
Cells(2, 8) = a
Cells(2, 9) = b
Cells(2, 10) = c
End Sub

По факту в каждом столбце 229 значений, а выводит 231, 5 и 7 значений по каждому столбцу

excel vba

Источник: Stack Overflow на русском

Answer 1

▲ 0

Пройдитесь циклом по файлу. к примеру:

a = 0

Do
    if cells(a, 1) = "" then Exit Do 
a = a + 1
Loop

Номер столбца у ячейки указываем тот, в котором будут точно значения, либо добавляем доп. проверки циклом по остальным столбцам. Если есть вероятность наличия пустых строк - также исследуем это условие кодом.
Стандартные функции VBA не дадут вам идеальный результат в 100% случаев.

Подсчет количества значений в столбце

Ответы