Как сделать макрос, который будет передавать / распределять данные из одной ячейки в разные ячейки?

Question

Я хотел бы спросить, может ли макрос решить эту автоматизацию.

Я хотел бы передавать / распространять данные из одной ячейки в разные ячейки.

Answer 1

Это даже не требует макроса:

• выберите клетки, которые вы хотите разделить
• во вкладке данных нажмите "текст в столбцы"
• Там выбирают "с разделителями" и "далее"
• для разделителя выберите "другое" и введите -
• "закончить" и все готово

Answer 2

Этот простой UDF (макрос) поможет вам разбить значения на столбцы.

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

Как это устроено:

1. Скопируйте и вставьте этот код VBA как модуль.

2. Я предполагаю, что у вас есть данные в Column B поэтому напишите эту формулу в ячейке D2 .

   =SplitValues("-",B2)
   

3. Заполните формулу прямо, пока она не понадобится.

4. Нажмите F2 и закончите с помощью Ctrl+Shift+Enter , теперь Excel преобразует ее в формулу Array и, наконец, заполняет Formula Down.

   {=SplitValues("-",B2)}
   

Примечание: разделитель «-» доступен для редактирования, при необходимости вы можете заменить его и другими.