Cum se determină următoarea celulă liberă dintr-o coloană folosind o macro
În multe macrocomenzi, datele ar trebui adăugate continuu. Apoi, este necesar să determinați următoarea celulă dintr-o coloană unde puteți introduce date. Puteți rezolva acest lucru folosind o formulă Excel.
Cu toate acestea, dacă doriți să determinați ultima celulă dintr-o macro, aveți nevoie de comenzi VBA. Există mai multe abordări pentru rezolvarea problemei. Iată o macro adecvată:
Sub SearchFreeCell ()
Dim Cell As Range
Dim Maxzeile As Long
Dacă Val (Stânga (Aplicație.Versiune, 2))> 11 Apoi
Linia maximă = 1048576
Altfel
Linia maximă = 65536
End If
Set cell = Cells (Maxzeile, 1). End (xlUp). Offset (1, 0)
MsgBox "Următoarea celulă gratuită este" & cell.Address (Fals, Fals)
Sfârșitul Sub
Odată pornit, macro-ul determină următoarea celulă liberă, neutilizată din coloana A. Adresa acestei celule este afișată într-o fereastră.
Macrocomanda se adresează ultimului rând din coloana A a tabelului activ și, începând de acolo, determină ultima celulă utilizată mai sus. Pentru ca macro-ul să funcționeze în Excel până la versiunea 2003, precum și în Excel de la versiunea 2007, se face o distincție adecvată de caz la început. Această distincție de caz este necesară deoarece numărul de linii disponibile a crescut cu versiunea 2007 de la 65536 la 1048576.
Dacă doriți să găsiți celula liberă într-o coloană în loc de celula liberă din coloana A, înlocuiți primul număr 1 între paranteze după comandă Celulele după numărul coloanei corespunzătoare.
Sfat: Dacă doriți să știți cum să introduceți și să porniți macrocomenzile în Excel, veți găsi o scurtă descriere aici: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html