locked
Inserir Linhas RRS feed

  • Pergunta

  • Tenho uma planilha do Excel e preciso inserir duas linhas entre os registros. Só que eu tenho 1112 registros e inserir pelo menu é uma tarefa muito demorada e sujeita a erros.

    Gostaria de saber se alguém pode me ensinar um código VBA para inserir duas linhas acima de uma célula "não vazia"

    EXEMPLO:
              A                  B                                                   C
         Código          RAZAO                                       Nome Fantasia
    1    16001            AÇÃO COMUN CANTINHO FELIZ    CANTINHO FELIZ
    2    16002            AÇÃO SOC CLARETIANA              SAGRADA FAMÍLIA

    **** 

              A                  B                                                   C
         Código          RAZAO                                       Nome Fantasia
    1    16001            AÇÃO COMUN CANTINHO FELIZ    CANTINHO FELIZ
    2
    3

    4    16002            AÇÃO SOC CLARETIANA              SAGRADA FAMÍLIA

    Valeu !


    Leandro Sarno
    sexta-feira, 22 de janeiro de 2010 14:30

Respostas

  • Boa noite,
    Experimente este código aqui:
    Sub InserirLinhas()
    i = 2
    Do While Cells(i, 1) <> ""
    Rows(i & ":" & i + 1).Insert
    i = i + 3
    Loop
    
    End Sub
    [ ]s

    Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/
    • Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:30
    • Não Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:30
    • Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:31
    sábado, 23 de janeiro de 2010 01:18

Todas as Respostas

  • Boa noite,
    Experimente este código aqui:
    Sub InserirLinhas()
    i = 2
    Do While Cells(i, 1) <> ""
    Rows(i & ":" & i + 1).Insert
    i = i + 3
    Loop
    
    End Sub
    [ ]s

    Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/
    • Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:30
    • Não Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:30
    • Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:31
    sábado, 23 de janeiro de 2010 01:18
  • Boa noite,
    Experimente este código aqui:
    Sub InserirLinhas()
    
    i = 2
    
    Do While Cells(i, 1) <> ""
    
    Rows(i & ":" & i + 1).Insert
    
    i = i + 3
    
    Loop
    
    
    
    End Sub
    [ ]s

    Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/

    Muito Obrigado! Funcionou corretamente.

    Deus te abençoe!
    Leandro Sarno
    terça-feira, 26 de janeiro de 2010 11:31