Страницы: 1
RSS
Разделить текст по разделителю с помощью макроса
 
Добрый день. Подскажите пожалуйста, как можно решить такую задачу макросом? В ячейке D1 и D2 через запятую перечислены люди(Имя Фамилия). Количество людей в каждой из ячеек может быть различным. Мне нужно чтобы каждый человек был записан в столбец A для D1 и в столбец В для D2. Нужно чтобы после разделения также удалялся пробел который идет после запятой. В примере, в ручную, я показал что должно получиться
 
Nazar93, https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=128947&TITLE_SEO=128947-makros-razdeleniya-teksta-po-stolbtsam-s-peremeshcheniem-dannykh-v-odi&sphrase_id=341872
Код
Sub fio()
Dim arr
Dim i As Long
Dim iLastRow As Long
Dim n As Integer
    iLastRow = Range("D1").End(xlDown).Row
        For i = 1 To iLastRow
            arr = Split(Cells(i, "d"), ",")
        For n = 0 To UBound(arr)
            Cells(Cells(Rows.Count, i).End(xlUp).Row + 1, i) = Trim(arr(n))
    Next n
  Next i
End Sub
Изменено: Mershik - 23.05.2020 16:37:15
Не бойтесь совершенства. Вам его не достичь.
 
Ещё вариант.
 
Mershik, Юрий М, спасибо
Страницы: 1
Наверх