ACHAR TEXTO ESPECIFICO E COPIAR CONCATENANDO PARA O FINAL NA LINHA ACIMA
Enviado: 26 Out 2021 às 22:28
Bom dia pessoal,
Tenho uma seguinte situação.
ficaria assim:
Obrigado, pela atenção.
Tenho uma seguinte situação.
Código: Selecionar todos
gostaria de esses END que estão isolados fossem pra cima e deletando em seguida.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]
ficaria assim:
Código: Selecionar todos
Tentei o seguinte código mas sem sucesso.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]Código: Selecionar todos
Pode ser em outro código, desde que eu consiga fazer meu exemplo de cima.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
Obrigado, pela atenção.