Há dias, tive necessidade de encontrar uma solução para eliminar linhas que se encontravam “hidden”, sem ter que as colocar visíveis, mas através de uma forma automatizada.
Assim, utilizei o seguinte código, que deu o resultado que eu necessitava:
Sub DeleteHiddenRows()
Dim i As Long
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Cells.Find(What:=”*”, After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End If
For i = LastRow To 1 Step -1
If Cells(i, “A”).RowHeight = 0 And _
Cells(i, “A”).ColumnWidth <> 0 Then
Cells(i, “A”).EntireRow.Delete
End If
Next i
End Sub