Помогите разделить цифры по ячейкам

[Alex2019]

Нужна помощь, есть ячейка с рядом чисел разделенных запятой, как их можно разделить по каждой ячейке, так чтобы каждая цифра шла в свою ячейку.

[SAS888]

С помощью VBA, например, так:
Пусть в ячейке "А1" содержится "1,2,3,4,5,6,7,8,9". Следующий макрос разделит цифры и занесет их в ячейки столбца "B".

Sub Razd()
    Dim i As Integer, a As Variant
    a = Split(Range("A1"), ",")
    For i = 0 To UBound(a)
        Cells(i + 1, "B") = a(i)
    Next
End Sub

[Alex2019]

Да все отлично делит он на ячейки, только хотелось бы, чтобы он их по горизантали делил и начиная с ячейки K, напиши как ты его сделал этот макрос, так сказать логику понять хочу

[SAS888]

Попробуйте сделать сами. Логика проста.
Оператор "Split" имеет 2 аргумента: 1 - знечение (строка), которое мы анализируем, 2 - разделитель, т.е. то, по чему мы хотим разделять строку. Этот оператор возвращает массив из "разделенных" элементов, начинающийся с 0, т.е. а(0) - первый, а(1) - второй и т.д. Далее цикл вывода в ячейки. Cells([строка], [столбец]). Вот и все.

[Alex2019]

Смысл я понял, осталось понять как сделать перечисление по столбцам, там буквенное обозначение, а не цифровое. И еще как сделать так что бы этот макрос повторялся не только одной строке а пробегал по всем

[SAS888]

Cells(1, 11) - ячейка строки 1, столбца 11, т.е "K1".

[slan]

а то есть такая фича - текст по столбцам..

[Alex2019]

всем спасибо нашел более легкий способ "текст по столбцам", но появился вот еще какой вопрос есть значение типа "25.12.2007 8:19:37"
как можно избавится от даты оставив время, нужно получить число 39441.3469560185 в числовом режиме только без целой части

[SAS888]

Пусть ячейка "A1" содержит значение 25.12.2007 8:19:37.
Если нет возможности установить формат ячейки "вручную", то

получить число 39441.3469560185 в числовом режиме только без целой части

(наверное, имеется ввиду числовой формат), можно с помощью формулы "=СЦЕПИТЬ(0;A1)-СЦЕПИТЬ(0;ОТБР(A1))".