tak začnem ja:
makro na mazanie skrytých riadkov (vyplnených)
Sub Makro1()
'
' Makro1 Makro
'
'
Dim CisloPoslednehoRiadku As Long
Dim SkumanyRiadok As Long
CisloPoslednehoRiadku = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Application.ScreenUpdating = False
For SkumanyRiadok = CisloPoslednehoRiadku To 1 Step -1
If Rows(SkumanyRiadok).Hidden = True Then Rows(SkumanyRiadok).EntireRow.Delete
Next SkumanyRiadok
Application.ScreenUpdating = True
End Sub
.