Jak mohu odkrýt všechny řádky v jazyce VBA z poslední řady?

hlasů
0

V tabulce je LastRow je ve skutečnosti 32, ale když jsem spustit tento sub, to je odkrytí vše před Row 30 a opouštět oba 31 a 32 skryté. Nějaká 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
Položena 13/02/2020 v 23:58
zdroj uživatelem
V jiných jazycích...                            


1 odpovědí

hlasů
1

LastRow = Cells(Rows.Count, 4).End(xlUp).Row Vrátí poslední viditelnou řádek (s daty) ...

V tomto případě bude fungovat:

ActiveSheet.UsedRange.Rows.count

Dokonce i když jsem nikdy doporučuji používat jej ...

Odpovězeno 14/02/2020 v 00:16
zdroj uživatelem

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