Tenho uma planilha com mais de 1.000 linhas e preciso inserir 02 linhas em branco entre cada linha da planilha. Como faço para realizar a operação de uma única vez? Pois estou inserindo linha por linha!

Question

• Excel for Mac 2008
• Inserir linhas em branco entre as linhas da planilha (1.000 linhas) ---> forma direta!

Answer 1

Utilize o gravador de macros para registrar a inserção 2 ou 3 vezes. em seguida, compare o código e organize num looping, parando na linha (1000 - ou 3000!).

Answer 2

Vocês conseguiram resolver este problema? preciso colocar uma linha a cada 19 linhas, tipo depois que chegar no dado 18, deve ser criada uma nova linha e adicionar um outro dado nesse campo, isso tudo ate não ter mais dados nesta coluna.

Answer 3

Olá, boa noite. Estou tentando sanar uma dúvida e encontrei essa sua resposta que chegou bem perto. Tenho uma planilha com 182.000 dados em uma coluna e preciso criar um intervalo, ou seja, uma linha em branco a cada 99 linhas. Pode me ajudar? Não entendo quase nada de VBA. Obrigada! Danielle

Answer 4

Criei este código agora, veja se resolve.

Sub Macro1()

 Range("A3").Select   'Começa seleção pela linha 3 da coluna A

 For x = 1 To 10 'Um looping de 1 a 10

    ActiveCell.EntireRow.Select   'Seleciona linha toda

    Selection.Insert Shift:=xlDown   'Insere uma linha

    ActiveCell.Offset(2, 0).Activate   'Pula duas linhas

 Next x   ' Acrescenta 1 a variavel x que controla o Looping

End Sub

Answer 5

Luiz,

Estou procurando uma solução para um problema semelhante a este.  Fiz o que você orientou e o código gravado é o que está abaixo.  Só não entendi o que é looping...(ainda sou novo em VBA, desculpe...)

   Rows("2:5").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Rows("7:11").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Rows("13:17").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Rows("19:23").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Obrigado,

WS!