Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Excluir Segunda linha dentro de uma célular

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Baldocchi
Colaborador
Colaborador
Mensagens: 15
Registrado em: Qua Ago 09, 2017 8:38 am

Excluir Segunda linha dentro de uma célular

Mensagem por Baldocchi »

Olá a todos(as),

Por favor, alguém pode me ajudar?
Eu preciso saber como excluir uma linha dentro de uma célula.
Eu importo alguns dados de um arquivo HTML e, em alguns casos, os dados vêm com duas linhas.
Exemplo:
conteúdo da célula A1:
APM DA ESCOLA A
segunda linha


Eu preciso excluir essa segunda linha da célula, mas não tenho a menor noção de como fazer isso.

Obrigado a todos(as)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Excluir Segunda linha dentro de uma célular

Mensagem por Tov Elen Shau »

Colega, pode anexar seu modelo ou um print?


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Excluir Segunda linha dentro de uma célular

Mensagem por Tov Elen Shau »

Colega

Não sei se entendi direito, mas parece que o que vc quer é excluir a quebra de texto, que faz com que a aparência da planilha fique com uma linha a mais. Você pode fazer isso manualmente, selecionando toda a planilha\Formatar Células\Alinhamento, e desmarque a opção Quebrar Texto Automaticamente. Ou pela rotina abaixo

Sub Quebra_de_Texto()
'EXCLUIR QUEBRA AUTOMÁTICA DE TEXTO
Cells.Select
With Selection
.WrapText = False
End With
Range("A1").Select
End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Excluir Segunda linha dentro de uma célular

Mensagem por Tov Elen Shau »

O ruim é que alguns nomes de escolas podem ficar com o final do nome sem visualizar dentro da célula. Para que isso não ocorra você poderá estar compactando a fonte (somente) da coluna G até caber na célula, ficando assim a rotina;

Sub Quebra_de_Texto()
'EXCLUIR QUEBRA AUTOMATICA DE TEXTO
Cells.Select
With Selection
.WrapText = False
End With
Range("A1").Select

Columns("G:G").Select
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
End Sub


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Excluir Segunda linha dentro de uma célular

Mensagem por Reinaldo »

Como alerta adicional, as celulas da coluna "G" contem um caractere "Não imprimivel/não visivel" de nova linha, o que muitas vezes "força" a quebra de linha, portanto e bom exclui-lo
Utilize em uma coluna sem conteuroa formula =SUBSTITUIR(G5;CARACT(10);"";1) arraste ate onde necessario,depois copie essas celulas e de um "Colar Valores" nos dados da coluna G


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder