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

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

Разделение значений одной строки на несколько строк (Формулы/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

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

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