Подсчет заполненных ячеек Excel - VB
Формулировка задачи:
Здравствуйте!
Достаточно давно столкнулся с проблемой подсчета заполненных ячеек экселя, которую благополучно решил. НО! недавно обнаружил, что тот метод который идеально работал - оказался не универсальным, а именно:
если стобец пустой, т.е. число заполненных ячеек в нем равно нулю, счетчик все равно выдает единицу.
Вот мой код, помогите если кто знает как решить данную проблему:
Если появятся дополнительные советы или комментарии, буду очень благодарен
Решение задачи: «Подсчет заполненных ячеек Excel»
textual
Листинг программы
Function CountNotBlank(rn As Object) As Long CountNotBlank = rn.Cells.Count - MyXL.WorksheetFunction.CountBlank(rn) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д