Страницы: 1
RSS
Из одной колонки в несколько с разделителем "запятая"
 
Добрый день!

Подскажите пожалуйста алгоритм переноса (разбивки) значений из одной колонки в несколько с разделителем "запятая"
 
Вкладка данные-->Текст по столбцам-->На втором шаге укажите разделитель ",".
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Получилось) Спасибо за отзывчивость!  
 
добрый день,вариант макроса,кнопки test и очистка
 
Код
Sub test()
  Dim t$, i&, j&, z
 For j = 1 To Range("A" & Rows.Count).End(xlUp).Row: t = Range("A" & j): z = Split(t, ",")
   For i = 0 To UBound(z): Range("F" & j).Offset(, i) = z(i): Next i, j
End Sub
Изменено: кузя1972 - 15.03.2018 14:25:47
 
Если не принципиален формат то можно одним циклом
Код
Sub test()
  Dim j&
    For j = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Range("F" & j).Resize(, UBound(Split(Range("A" & j), ",")) + 1).Value = _
            Split(Range("A" & j), ",")
    Next j
End Sub
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1
Наверх