Ahoj, mám různé excelové sešity s asi padesáti listy a potřeboval bych z nich vymazávat prázdné řádky.
Všechny návody a rady, které jsem našel se týkaly vždycky jenom jednoho listu, třeba tenhle:
ActiveSheet.UsedRange.Select
Dim i As Long
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
End Sub
dělá přesně, co potřebuju, ale musím ho použít na každý list zvlášť, šel by nějak rozšířit, aby fungoval na všechny listy v souboru najednou? Makru nerozumím, tak si to sám předefinovat neumím :(
Makro - smazání prázdných řádků
Makro - smazání prázdných řádků
Naposledy upravil(a) Michremi dne 18 pro 2017 14:19, celkem upraveno 1 x.
-
- Pohlaví:
Re: Makro - smazání prázdných řádků
vnější cyklus
Nicméně celé by to chtělo ještě překopat...
Kód: Vybrat vše
Dim wshList As Worksheet
For Each wshList in Worksheets...
a zde pracovat s wshList.UsedRange
Next wshList
Nicméně celé by to chtělo ještě překopat...
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Makro - smazání prázdných řádků
Vymazávať prázdne riadky v iných súboroch a ešte to nechať na automatiku je extrémne nebezpečné. Treba aspoň minimálne logovať, čo sa deje. Skúsil som Vám načrtnúť návrh ako aspoň niečo kontrolovať. Najskôr sa poriadne oboznámte s tým čo makro robí, a skúšajte to VÝHRADNE na kópii súborov v nejakom cvičnom adresári. Až keď si to poriadne ošaháte a manuálne prekontrolujete, môžete pokračovať ...
- Přílohy
-
- Vymaž prázdne riadky v súboroch.zip
- (41.22 KiB) Staženo 58 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 1974
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Ukotvení prvního a posledního řádku v tabulce.
od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky - 2
- 1579
-
od Kopusek
Zobrazit poslední příspěvek
14 pro 2023 08:55
-
-
-
excel text na konec více řádků najednou Příloha(y)
od Myerina » 03 led 2024 11:51 » v Kancelářské balíky - 5
- 960
-
od Zivan
Zobrazit poslední příspěvek
04 led 2024 09:42
-
-
- 9
- 1126
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů