Este fórum está sendo desativado

[dudapehl]

Boa tarde!

Gostaria de saber como posso inserir mais de uma linha em uma planilha pronta...



no caso ai na imagem, são poucas linhas, mas se fossem 1000 linhas e eu quisesse inserir 2 linhas em branco abaixo de cada uma, como eu teria que fazer... Essa minha duvida...

Grato pela atenção !

[Kledison]

Boa tarde,

cole o código abaixo em um módulo e execute a macro.

Código: Selecionar todos

Sub inserirlinha()

 'Cria variáveis


    'Variável para percorrer a planilha

    Dim casa As Object

    'Variável para encontrar a última célula preenchida

    Dim ultimacelula


'Impede que o usuário visualize o processo sendo executado

Application.ScreenUpdating = False


'Atribui o valor da última célula preenchida

ultimacelula = Range("A1000000").End(xlUp).Address

 
    'Percorre a planilha

    For Each casa In Range("A1:" & ultimacelula)

         'Se encontrar uma célula preechida, onde a célula abaixo também esteja preechida

        If casa <> "" And casa.Offset(1, 0) <>  "" Then

        'Então insere uma linha entre elas

        casa.Offset(1, 0).EntireRow.Insert
        casa.Offset(1, 0).EntireRow.Insert
  

        'Finaliza o If

        End If

     'Vai para a proxima célula

    Next

 'Seleciona a célula A1

Range("A1").Select
End Sub