Comprar Coleção de 15.000 Macros, Funções e Fórmulas do Excel           Dicas
Como colocar em colunas diferentes Nomes, Sobrenomes e Telefones dispostos inicialmente numa única coluna ?"

Pergunta:
Numa Planilha Excel tenho anotado regularmente Nomes, Sobrenomes e Telefones de amigos e Clientes(sobretudo Clientes). Usei a Coluna B para fazer estas anotações. Se uma pessoa tem mais de um telefone, eu repito o seu nome na linha de baixo com o respectivo telefone.Ocorre que quando há uma alteração qualquer (quando um Cliente altera seu Sobrenome por exemplo ou quando há alterações no número do telefone, ou quando um Cliente falece, se ausenta ou muda de Estado) sou obrigado a fazer um trabalho extra para colocar em dia essa minha coluna B, o que ocorre com freqüência. Como essa lista já está muito longa, pergunto se o VBA me faria a fineza de colocar em colunas diferentes a minha lista de Nomes Sobrenomes e Telefones. Desde já agradeço por antecipação vossa atenção.

Resposta:
Observação: Os leitores que acompanham essa seção devem observar que na maioria das vezes simplificamos a descrição do problema. A questão acima poderia ser resumida na frase : "Como colocar em colunas diferentes Nomes, Sobrenomes e Telefones dispostos inicialmente numa única coluna ?" Contudo, decidimos apresenta-la na íntegra para mostrar a íntima relação do VBA com os problemas do dia a dia. Selecione a sua lista(coluna B) e acione a Macro abaixo e você terá separado em colunas diferentes Nomes, Sobrenomes e Telefones(Obs.: A Macro funcionará desde que até mesmo para os amigos íntimos você tenha anotados Nome e Sobrenome)

Sub ReformulaListaDeNomes( )
For Each Celula In Selection
Celula.TextToColumns Destination:=Celula, OtherChar:="-"
Next
End Sub