Как в excel расположить данные в одном столбце?

Question

[Максим Тимофеев]

Есть таблица:
id1 а b
id2 с d e
id3 f g
Надо ее привести к виду
id1 а
id1 b
id2 c
id2 d
и т.д.
строк 150 тыс. столбцов 20
Как? Есть методы? Или идеи?

Comments

[AVKor]

Excel - табличный процессор. При чём тут БД?

Answer 1

[Зелимхан Бельтоев]

Alt+F11, там пишите макрос, который будет смотреть столбцы справа на наличие значений и, если найдет, добавит строку, внесёт это значение.
В принципе, ничего сложного. Других путей тут как бы нет (в смысле, без VBA)

UPD:

Sub Обработка()
    Dim row As Long, column As Long, i As Long
    row = 1 ' строка, с которой начинаем обработку
    column = 1 ' столбец с id
    
    Do While Len(Cells(row, column).Value) <> 0
    
        i = 2
        Do While Len(Cells(row, column + i).Value) <> 0
        
            Rows(row + i - 1 & ":" & row + i - 1).Select
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(row + i - 1, column).Value = Cells(row, column).Value
            Cells(row + i - 1, column + 1).Value = Cells(row, column + i).Value
            Cells(row, column + i).Value = ""
            i = i + 1
            
        Loop
        
        row = row + 1
    Loop
    
End Sub

На 150 тыс. может на пару минут растянуться, но, главное, свою задачу выполнит.
Если часто будете использовать решение: можно оптимизировать, считав всё это в память для вычислений

Comments

[Максим Тимофеев]

справочник по VBA не подскажите?

[Зелимхан Бельтоев]

Максим Тимофеев: все-таки уделил пару минут, набросал решение "в лоб". Будет немного медленно работать из-за частого добавления строк и обращения к ячейкам

[Максим Тимофеев]

Спасибо. Мне это один раз выполнить надо

[Максим Тимофеев]

Зелим Бельтоев: Работает спасибо, попытался слегка модернизировать поймал зависание, не подскажите почему. Заменил в двух местах <> 0 на <> "конец". Так как строки иногда содержат пустые ячейки имеют разную длину, но всегда оканчиваются ячейкой содержащей "конец"

[Зелимхан Бельтоев]

Максим Тимофеев: Если хотите проверять на "конец", уберите функцию Len(...), так как в цикле проверяется количество символов в очередной строке и, если их нет (что равно 0), обработка завершается. А убрав Len будет проверка на совпадение, но тут лучше использовать StrComp(...) для сравнения строк

[Максим Тимофеев]

сделала так: Do While StrComp(Cells(row, column).Value, "конец") <> 1

i = 2
Do While StrComp(Cells(row, column + i).Value, "конец") <> 1
получил ошибку 400

[Зелимхан Бельтоев]

Максим Тимофеев: пока нет совпадения: Do While StrComp(Cells(row, column).Value, "конец") <> 0
у вас столбцы тоже словом "конец" ограничены? Если да, то тоже на <> 0 меняйте, если нет - оставьте старый вариант во сложенном цикле, чтобы на пустоту сравнивал

[Максим Тимофеев]

Зелим Бельтоев: Спасибо огромное