Как да определим следващата свободна клетка в колона с помощта на макрос
В много макроси данните трябва да се добавят непрекъснато. След това е необходимо да се определи следващата клетка в колона, където можете да въведете данни. Можете да разрешите това с помощта на формула на 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- в-excel-ein.html