EXCELer Tudo sobre EXCEL em Português
Se tivermos preenchidas linhas, como no exemplo
e pretendermos inserir linhas em branco após 4 linhas de dados, ou seja, sempre à próxima 5ª linha,
podemos utilizar o seguinte Código, adaptado de Dave Peterson:
Private Sub CommandButton1_Click()
'Adiciona 1 linha em branco após 4 linhas
'Código original por: Dave Peterson
Dim iCtr As Long
Dim LastRow As Long
Dim myRng As Range
With ActiveSheet
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set myRng = Nothing
For iCtr = 5 To LastRow Step 4
If myRng Is Nothing Then
Set myRng = .Cells(iCtr, "A")
Else
Set myRng = Union(.Cells(iCtr, "A"), myRng)
End If
Next iCtr
End With
If myRng Is Nothing Then
'Não faz nada
Else
myRng.EntireRow.Insert
End If
End Sub