Przykładowe:
OstatniWiersz = Application.WorksheetFunction.CountIf(Worksheets(a1).Range("A1:A10000"), "*")
Działa w sytuacji gdy w zakresie A1:A10000 znajdują się wartości tekstowe.
Faktycznie zlicza on wystąpienia komórek z tekstem więc gdy mamy komórki puste lub numeryczne to wynik będzie ilością komórek niepustych tekstowych
koniec = ThisWorkbook.Worksheets(wynik).Cells(Rows.Count, 1).End(xlUp).Row
Ta metoda sprawdza komórki w kolumnie 1 sprawdzając od dołu arkusza, aż natknie się na pierwszą wartość niepustą
Brak komentarzy:
Prześlij komentarz