Inserir Linhas

Question

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

Answer 1

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/

Answer 2

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