разбить текст по строкам

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/разбить текст по строкам - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

разбить текст по строкам (Формулы/Formulas)

разбить текст по строкам

Ннотик

Дата: Четверг, 29.12.2016, 09:39 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте ! Имеются ячейки с авто, помогите преобразовать, чтобы каждое авто было в отдельной строке. Как сделать процесс автоматическим, из-за большого количества подобных строк и их последующего добавления ? Спасибо!

К сообщению приложен файл: 7086774.xls (18.5 Kb)

Ответить

SLAVICK

Дата: Четверг, 29.12.2016, 10:54 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Вариант:
[vba]

Код

Sub d()
Dim arr()
Set r = Cells(1, 1).CurrentRegion.Columns(1).Cells
For Each c In r 'Selection
    m = Split(c, vbLf)
    For i = 0 To UBound(m)
        ReDim Preserve arr(t)
        arr(t) = m(i)
        t = t + 1
    Next
Next
Sheets.Add
Cells(1, 1).Resize(t) = Application.Transpose(arr)
End Sub

[/vba]

К сообщению приложен файл: 0138565.xls (31.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Ннотик

Дата: Четверг, 29.12.2016, 11:52 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

SLAVICK, ой как! прям волшебненько! прям боюсь вставлять в свою базу !!! Спасибо!

Ответить

разбить текст по строкам (Формулы/Formulas)

Страница 1 из 1
1