Notifications
Clear all

Varias linhas separadas por uma em branco

7 Posts
2 Usuários
0 Reactions
1,074 Visualizações
(@axlmt)
Posts: 10
Active Member
Topic starter
 

Por ex

A1
...
A2
...
A3
...
A4

Queria que ficasse

A1
A2
A3
A4

Como que arruma? Sao mais de 700 assim

 
Postado : 26/11/2013 10:29 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde

Selecione o intervalo da coluna A até a última linha que possui dados --> ferramenta Localizar e Selecionar --> escolha Ir para Especial --> Marque a opção Em Branco --> agora para excluir as linhas em branco, use a ferramenta Excluir Linhas da Planilha. Pronto.

Tem outras maneiras, inclusive com macro, mas essa é mais fácil.

Dê retorno.

Att.te

 
Postado : 26/11/2013 10:57 am
(@axlmt)
Posts: 10
Active Member
Topic starter
 

Boa tarde

Selecione o intervalo da coluna A até a última linha que possui dados --> ferramenta Localizar e Selecionar --> escolha Ir para Especial --> Marque a opção Em Branco --> agora para excluir as linhas em branco, use a ferramenta Excluir Linhas da Planilha. Pronto.

Tem outras maneiras, inclusive com macro, mas essa é mais fácil.

Dê retorno.

Att.te

Ahhh.. Obrigado =) Deu certo

Ja aproveitando, suponha que eu queira agora deixar em branco todas as linhas da Planilha que estao em celulas pares, ha alguma maneira simples?

Abs

 
Postado : 26/11/2013 11:07 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite

Maneira simples acho que não tem, pode ser que com macro alguém consiga fazer.
Para a boa organização do fórum, se quiser tentar, abra um novo tópico no sub-fórum VBA & Macros.

Como você disse que a resposta deu certo, faça a gentileza de clicar na mãozinha que fica do lado da ferramenta Citar.

At.te

 
Postado : 26/11/2013 5:13 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ja aproveitando, suponha que eu queira agora deixar em branco todas as linhas da Planilha que estao em celulas pares, ha alguma maneira simples?

Abs

Essa macro faz:

Sub DELETAPARES()
Dim LastRow As Long, x As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = LastRow To 1 Step -1
    If Rows(x).Row Mod 2 = 0 Then
        Rows(x).EntireRow.Clear
      End If
Next
End Sub

Se não avançar avise;

Abs

 
Postado : 26/11/2013 7:27 pm
(@axlmt)
Posts: 10
Active Member
Topic starter
 

Obrigado aos 2, deu tudo certo.

 
Postado : 27/11/2013 6:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 27/11/2013 7:51 am