Як визначити наступну вільну клітинку у стовпці за допомогою макросу
У багатьох макросах дані слід додавати безперервно. Потім необхідно визначити наступну клітинку у стовпці, куди можна ввести дані. Ви можете вирішити це за допомогою формули Excel.
Однак, якщо ви хочете визначити останню клітинку в макросі, вам потрібні команди VBA. Існує кілька підходів до вирішення проблеми. Ось відповідний макрос:
Sub SearchFreeCell ()
Dim Cell As Range
Dim Maxzeile As Long
Якщо Val (зліва (Application.Version, 2))> 11 Тоді
Максимальна лінія = 1048576
Інакше
Максимальна лінія = 65536
Закінчити Якщо
Встановити клітинку = Осередки (Maxzeile, 1). Кінець (xlUp) .Зміщення (1, 0)
MsgBox "Наступна безкоштовна клітинка" & cell.Address (False, False)
End Sub
Після запуску макрос визначає наступну вільну, невикористовувану комірку у стовпці А. Адреса цієї комірки відображається у вікні.
Макрос адресує останній рядок у стовпці А активної таблиці і, починаючи з нього, визначає останню комірку, що використовується вище. Для того, щоб макрос працював у Excel до версії 2003, а також у Excel з версії 2007, на початку робиться відповідна відмінка. Ця різниця між випадками необхідна, оскільки кількість доступних рядків зросла з версією 2007 з 65536 до 1048576.
Якщо ви хочете знайти вільну клітинку у стовпці замість вільної клітинки у стовпці А, замініть перше число 1 у дужках після команди Клітини за номером відповідної колонки.
Порада: Якщо ви хочете дізнатися, як вводити та запускати макроси в Excel, ви знайдете короткий опис тут: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
