Hogyan megzavar minden sorában VBA az utolsó sor?

szavazat
0

A táblázatkezelő, a LastRow valójában 32, de amikor futtatni ezt sub, ez Felfedés mindent, mielőtt sor 30 és így mindkét 31 és 32 rejtettek. Minden segítséget?

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
A kérdést 13/02/2020 23:58
a forrás felhasználó
Más nyelveken...                            


1 válasz

szavazat
1

LastRow = Cells(Rows.Count, 4).End(xlUp).Row visszaadja utolsó látható sorban (adatokkal) ...

Ebben az esetben fog működni:

ActiveSheet.UsedRange.Rows.count

Még ha soha nem javasoljuk a használatát ...

Válaszolt 14/02/2020 00:16
a forrás felhasználó

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