Разделение значений одной строки на несколько строк

Старая форма входа

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

Разделение значений одной строки на несколько строк (Формулы/Formulas)

aleb8080

Дата: Вторник, 14.11.2017, 14:14 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2013

Господа, добрый день! Очень нужна помощь. Есть большая база данных около 10 тыс.строк. В каждой строке имеются значения, разделенные "Alt+Enter". Мне необходимо каким-то образом под каждой строкой создать столько строк, сколько значений в ячейках, чтобы в каждой строке осталось только одно значение из ячейки. Пример во вложении. Разбил одну строчку руками на несколько строк (выделил желтым). Как сделать автоматически?

К сообщению приложен файл: 111.xlsx (9.6 Kb)

Ответить

sboy

Дата: Вторник, 14.11.2017, 14:52 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
выделяем исходную строку, запускаем макрос (формат ячеек предварительно сделайте текстовым)
[vba]

Код

Sub ppp()
Set r = Selection
If r Is Nothing Then Exit Sub
    s = Split(r.Cells(1).Value, Chr(10))
    cs = UBound(s)
    r.Cells(1).Offset(1, 0).Resize(cs) = Application.Transpose(s)
        For x = 2 To r.Cells.Count
            t = Split(r.Cells(x).Value, Chr(10))
                If UBound(t) = cs Then
                    r.Cells(x).Offset(1, 0).Resize(cs) = Application.Transpose(t)
                Else
                    r.Cells(x).Offset(1, 0).Resize(cs) = r.Cells(x).Value
                End If
        Next x
End Sub

[/vba]