Как определить следующую свободную ячейку в столбце с помощью макроса
Во многих макросах данные должны добавляться непрерывно. Затем необходимо определить следующую ячейку столбца, в которую можно ввести данные. Вы можете решить эту проблему с помощью формулы Excel.
Однако, если вы хотите определить последнюю ячейку в макросе, вам потребуются команды VBA. Есть несколько подходов к решению проблемы. Вот подходящий макрос:
Sub SearchFreeCell ()
Тусклая ячейка как диапазон
Dim Maxzeile As Long
Если Val (Left (Application.Version, 2))> 11, то
Макс строка = 1048576
Еще
Макс строка = 65536
Конец, если
Установить ячейку = Cells (Maxzeile, 1) .End (xlUp) .Offset (1, 0)
MsgBox «Следующая свободная ячейка» & cell.Address (False, False)
Конец подписки
После запуска макрос определяет следующую свободную неиспользуемую ячейку в столбце A. Адрес этой ячейки отображается в окне.
Макрос обращается к последней строке в столбце A активной таблицы и, начиная с нее, определяет последнюю использованную выше ячейку. Чтобы макрос работал в Excel до версии 2003, а также в Excel с версии 2007, вначале делается подходящее различие регистра. Это различие регистра необходимо, потому что количество доступных линий увеличилось с версией 2007 с 65536 до 1048576.
Если вы хотите найти свободную ячейку в столбце вместо свободной ячейки в столбце A, замените первое число 1 в скобках после команды Клетки по номеру соответствующего столбца.
Совет: Если вы хотите узнать, как вводить и запускать макросы в Excel, вы найдете здесь краткое описание: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html