Inserir linhas alternadas Excel

Question

Bom dia!

Gostaria de uma ajuda, preciso inserir 3 linhas em branco abaixo da linha com dados, acho que somente com macro ser&aacute; poss&iacute;vel:

Transformar isso:
PRIMEIRA LINHA
SEGUNDA LINHA
TERCEIRA LINHA

Nisso:
PRIMEIRA LINHA

SEGUNDA LINHA

TERCEIRA LINHA

E assim por diante ate a ultima linha com informa&ccedil;&atilde;o.

Answer

N&atilde;o testei.

Tente o c&oacute;digo abaixo e d&ecirc; retorno.

Sub InsereEmBranco()
Dim x As Long
x = 2
Do While Cells(x, 1)  &ldquo;&rdquo;
If Cells(x - 1, 1)  &ldquo;&rdquo; Then
Cells(x, 1).EntireRow.Insert
End If
x = x + 1
Loop
End Sub

Answer

Sub InsereLinhas()
Dim k As Long
   For k = Cells(Rows.Count, 1).End(3).Row - 1 To 1 Step -1
    Rows(k + 1 & : & k + 3).Insert
   Next k
End Sub

Answer

LeandroTyska,, Bom Dia.

Com formula confere

[removido pela modera&ccedil;&atilde;o]

Decio

Ferramentas

Mover Tópico