Este fórum está sendo desativado

[Rabatini]

Bom dia pessoal,

Tenho uma seguinte situação.

Código: Selecionar todos

it's too damn rough up here tonight...[END]
Let's get this bird back to earth Phil,[END]
Weatherman[END]
the city I'll hand you back to Jill in the studio...[END]
[END]
On that somber note, and on a rainy, stormy night in[END]
[END]

gostaria de esses END que estão isolados fossem pra cima e deletando em seguida.

ficaria assim:

Código: Selecionar todos

it's too damn rough up here tonight...[END]
Let's get this bird back to earth Phil,[END]
Weatherman[END]
the city I'll hand you back to Jill in the studio...[END][END]
On that somber note, and on a rainy, stormy night in[END][END]

Tentei o seguinte código mas sem sucesso.

Código: Selecionar todos

Sub Check_Me()

Application.ScreenUpdating = False
Dim m As Long
Dim Lastrow2 As Long
Lastrow2 = Cells(Rows.Count, "B").End(xlUp).Row
For m = Lastrow2 To 1 Step -1
    If Cells(m, "B").Value = "[END]" Then "copiar o texto pra linha de cima concatenando para o final dela"
Next
Application.ScreenUpdating = True
End Sub

Pode ser em outro código, desde que eu consiga fazer meu exemplo de cima.
Obrigado, pela atenção.

[DJunqueira]

Vc provavelmente tem um código especial e q não aparece gerando essa quebra de linha.
Procure por um deles na tabela abaixo.

https://www.gaijin.at/en/infos/ascii-an ... cter-table

No Excel experimenta a função CÓDIGO() p/ ver se retorna o número do sinal oculto.

[Rabatini]

A quebra funciona, eu quero jogar o END que está sozinho na linha de cima no final.

[DJunqueira]

O q vc eventualmente quer é retirar esse código de quebra de linha especial e com isso o [END] vai p/ o lugar q vc quer, mas sem o texto p/ testar fica difícil bater o martelo.
Anexa sua planilha com o texto (real) q fica mais fácil de ajudar.