Excel - Recortar / copiar e colar célula a célula

Question

Todo dia eu preciso fazer o seguinte 70 vezes à mão:
+ Célula B1 > Cortar (copiar) tudo até ANTES do último espaço, depois adicioná-lo à célula A1 + Mover para B2 > Cortar (copiar) tudo até ANTES do último espaço, depois adicioná-lo à célula A2
+ Mover para B3 > Cortar (copiar) tudo até ANTES do último espaço, depois adicioná-lo à célula A3
...

A1 | B1| C1
First Name | Last Name X |Other Stuff

Deve resultar em:

A1 | B1 | C1

First Name Last Name | X | Other Stuff

Uma vez que Nome Sobrenome esteja na A1, a mesma coisa deve acontecer com a próxima linha até que não haja mais conteúdo.

Alguma maneira de fazer script disso?

    

Answer 1

Vou usar duas colunas extras para essa solução, E e F.

Na célula E1, digite esta fórmula:

=A1& " " & LEFT(B1,FIND("§",SUBSTITUTE(B1," ","§",LEN(B1)-LEN(SUBSTITUTE(B1," ",""))))-1)

Na célula F1, digite esta fórmula:

=RIGHT(B1,LEN(B1)-FIND("§",SUBSTITUTE(B1," ","§",LEN(B1)-LEN(SUBSTITUTE(B1," ","")))))

Verifique se não há caracteres § em seus dados. Se houver, substitua esse caractere em minhas fórmulas por outro caractere mais estranho (é apenas um espaço reservado).

Arraste as fórmulas para baixo para cobrir todos os seus dados, e aí você tem o que pediu!

Se você precisar colocá-lo de volta nos dados originais, apenas copie e use os valores de colar em A1 e B1.

Créditos: Eu pedi emprestada parte desta fórmula do usuário m4573r aqui: Eu preciso encontrar o último espaço em uma célula XLS