Jak mogę odkryć wszystkie wiersze w VBA z ostatniego rzędu?

głosy
0

Na arkuszu kalkulacyjnym, LastRow jest faktycznie 32, ale kiedy uruchomić ten sub, to odkrywanie wszystko przed Row 30, pozostawiając zarówno 31 i 32 ukryte. Jakaś pomoc?

Dim I As Integer
Dim LastRow As Long
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
For I = 1 To LastRow
    Rows(I).EntireRow.Hidden = False
Next I
Utwórz 13/02/2020 o 21:58
źródło użytkownik
W innych językach...                            


1 odpowiedzi

głosy
1

LastRow = Cells(Rows.Count, 4).End(xlUp).Row zwraca ostatni widoczny wiersz (z danymi) ...

W tym przypadku będzie działać:

ActiveSheet.UsedRange.Rows.count

Nawet jeśli nigdy nie polecam go używać ...

Odpowiedział 13/02/2020 o 22:16
źródło użytkownik

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more