Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Excluir Segunda linha dentro de uma célular
Excluir Segunda linha dentro de uma célular
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)
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)
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: Excluir Segunda linha dentro de uma célular
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
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
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: Excluir Segunda linha dentro de uma célular
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
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
- Reinaldo
- 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
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
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