Página 1 de 1

Excluir Segunda linha dentro de uma célular

Enviado: Sex Nov 22, 2019 1:41 pm
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)

Re: Excluir Segunda linha dentro de uma célular

Enviado: Sex Nov 22, 2019 4:05 pm
por Tov Elen Shau
Colega, pode anexar seu modelo ou um print?

Re: Excluir Segunda linha dentro de uma célular

Enviado: Sex Nov 22, 2019 5:08 pm
por Baldocchi

Re: Excluir Segunda linha dentro de uma célular

Enviado: Sex Nov 22, 2019 5:18 pm
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

Re: Excluir Segunda linha dentro de uma célular

Enviado: Sex Nov 22, 2019 5:33 pm
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

Re: Excluir Segunda linha dentro de uma célular

Enviado: Sáb Nov 23, 2019 9:28 am
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