Přidání prázdného řádku Vyřešeno

[jiri255]

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

[Reklama]

[cmuch]

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

[jiri255]

funguje skvěle díky moc