Поиск последней пустой ячейки - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. Необходим макрос для excel следующего функционала: есть выпадающий список в клетке D4 в котором отображаются все данные А5-E5. При добавлении в список нового значения оно должно автоматически дописываться в последнюю пустую клетку заданного диапазона. Так вот как правильно прописать именно клетку, куда пропишется новое значение? Вот что я написал и где застопорился:
По задумке должна была находиться последняя заполненная клетка и записывать данные в следующую справа, но если вместо Range(рядом с ????) пишу CountA - вылазят ошибки и ничего не работает. Буду признателен за помощь.

Решение задачи: «Поиск последней пустой ячейки»

textual
Листинг программы
Dim lLastRow As Long
Dim lLastCol As Long
lLastRow = Cells(Rows.Count,1).End(xlUp).Row 'последняя заполненная строка в 1 столбце
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column 'последний заполненный столбец в 1 строке

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы