Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос текста или замена по строкам вниз
 
#1
23.06.2017 11:02:56
 Добрый день
А как сделать в excel перенос или замену по строкам вниз, примерно так:

1.мир,труд,май
2.мир
3.труд
4.май
 
 
 
#2
23.06.2017 11:04:34
разделить столбец по символу "," и потом транспортировать
 
 
 
#3
23.06.2017 11:08:07
Без проверки
Код
Sub Perenos()
Dim i As Long, Arr
    Arr = Split(Cells(1, 1), ", ")
    For i = 0 To UBound(Arr)
        Cells(i + 2, 1) = Arr(i)
    Next
End Sub
 
 
 
#4
23.06.2017 11:09:38
Код
Sub asd()
    Dim i&
    i = 2
    For Each word In Split(Cells(1, 1), ",")
        Cells(i, 1) = Trim(word)
        i = i + 1
    Next word
End Sub
Изменено: kavaka08 - 23.06.2017 11:10:37
 
 
 
#5
23.06.2017 22:21:22
Спасибо, все получилось, только как теперь это применить ко всему столбцу одновременно :

1.мир,труд,май
2.растут,красивые,цветы
3.надо,рано,встать
4.пойдем,завтра,в,кино

Чтобы получилось вот так:
1.мир
2.труд
3.май
4.растут
5.красивые
6.цветы
7.надо
8.рано
9.встать
и т.д...
 
 
 
#6
23.06.2017 22:23:59
Pchelk, Вы уж подготовьте все возможные варианты, а то это никогда не закончится. Вот кто Вам мешал сразу показать, что нужно несколько ячеек обработать?
 
 
 
#7
24.06.2017 01:48:30
Код
Sub test()
Dim arr1(), arr2, i%, j&
arr1 = Range(Range("a1"), Range("a1").End(xlDown))
Columns(1).Clear
For i = LBound(arr1) To UBound(arr1)
    arr2 = Split(arr1(i, 1), ",")
    If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
        j = Cells(Rows.Count, 1).End(xlUp).Row
    Else: j = Cells(Rows.Count, 1).End(xlUp).Row + 1
    End If
    Cells(j, 1).Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
Next i
End Sub
Изменено: Nordheim - 24.06.2017 01:48:50
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#8
24.06.2017 08:00:32
Большущее спасибо Nordheim, все получилось так как надо  :)  
 
 
 
Страницы: 1
Наверх