Como criar uma macro que irá transferir / distribuir dados de uma célula para várias células?

Question

Eu gostaria de perguntar se uma macro poderia ser endereçada a essa automação.

Eu gostaria de transferir / distribuir dados de 1 célula para várias células.

    

Answer 1

Ele nem exige uma macro:

• selecione as células que você deseja dividir
• na guia de dados, clique em "texto para colunas"
• Escolha "delimitado" e "próximo"
• para o delimitador, selecione "outro" e digite -
• "terminar" e pronto

Answer 2

Esta simples UDF (Macro) ajudará você a dividir os valores em colunas.

Function SplitValues(a As String, b As String)
Dim Text() As String
Text = Split(b, a)
SplitValues = Text
End Function

Como funciona:

1. Copiar & Cole este código VBA como módulo.

2. Suponho que você tenha dados em Column B , portanto, escreva esta fórmula em Cell D2 .

   =SplitValues("-",B2)
   

3. Preencha a fórmula até que seja necessário.

4. Pressione F2 & terminar com Ctrl+Shift+Enter , agora o Excel irá convertê-lo em uma fórmula Array, e finalmente preencherá a Formula Down.

   {=SplitValues("-",B2)}
   

Nota: Delimitador "-" é editável, se necessário, você pode substituí-lo por outros também.