Zdravím,
měl bych na Vás prosbu ohledně makra, které by mi v excelu přidalo prázdný řádek.
Jedná se o řádky s textem, které jsou pod sebou a je jich asi 1000 a mezi řádky
s textem je vždy buď jeden prázdný řádek nebo dva prázdné řádky za sebou
a já bych potřeboval makro, které by to projelo a pokud najde jeden prázdný řádek
doplní za něj druhý prázdný a pokud najde dva prázdné řádky za sebou přeskočí je
a bude pokračovat dál?
Předem děkuji za přípané rady
Přidání prázdného řádku Vyřešeno
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Přidání prázdného řádku
Ahoj, třeba takto.
Kód: Vybrat vše
Sub PasteTwoRow()
Dim iRow As Integer
For iRow = 1000 To 1 Step -1
If iRow = 1 Then Exit Sub
If Cells(iRow - 1, 1) <> "" And Cells(iRow, 1) = "" And Cells(iRow + 1, 1) <> "" Then
Rows(iRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub
Re: Přidání prázdného řádku - [VYRESENO] Vyřešeno
funguje skvěle díky moc
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 11
- 1562
-
od Airen
Zobrazit poslední příspěvek
01 srp 2023 09:26
-
- 6
- 947
-
od Zivan
Zobrazit poslední příspěvek
17 led 2024 08:57
-
- 3
- 2127
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
- 2
- 738
-
od petr22
Zobrazit poslední příspěvek
21 úno 2024 19:10
-
-
Ukotvení prvního a posledního řádku v tabulce.
od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky - 2
- 1662
-
od Kopusek
Zobrazit poslední příspěvek
14 pro 2023 08:55
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů