Sul foglio di calcolo, il LastRow è in realtà 32, ma quando ho eseguito questo sub, è scoprendoli tutto prima fila 30, e lasciando entrambi 31 e 32 nascosta. Qualsiasi aiuto?
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
