как превратить "визуальную" иерархию в 1 столбце в "реальную" в нескольких

[eto]

ничего лучше с темой не придумалось ))
Дано:
в исходной таблице в одном стобце расположены данные Организация/подразделение/должность/фио
Иерархия выделена визуально (отступы) и группировкой
Нужно:
Что-то сделать с этой таблицей чтобы эти данные были в отдельных столбцах, а строки остались только соответствующие ФИО.
Для того, чтобы потом можно было сводную делать.

Пока не представляю как подступиться, а строк в оригинальной таблице будет несколько тысяч - многовато, чтобы руками это делать.

Пример в приложении.

[IgorGO]

очень примитивная и костная иерархия. в учебных целях - куда ни шло, но если так описана реальная структура организации... как по мне, то это печально. жмите кнопку, смотрите результаты на новом листе

[eto]

это сруктура реальной выгрузки из ЗУПа и пока иначе настроить отчет нельзя м.б. к следующему месяцу что-нибудь придумаем, а пока приходится работать с тем, что есть

спасибо за макрос, вроде бы всё как нужно работает
но как он это делает я так до конца и не поняла, если Вам не сложно - прокомметируйте, пожалуйста, код, для общего развития страждущих

[IgorGO]

1. Sub MakeSructure()
2. Dim Ash As Integer, r2 As Integer, c As Integer
3. Dim stru(3) As String, cl As Range
4. Ash = ActiveSheet.Index
5. Sheets.Add After:=ActiveSheet
6. Sheets(Ash).Activate
7. r2 = 1
8. With Sheets(Ash + 1)
9. For Each cl In Range(Cells(5, 1), Cells(5, 1).End(xlDown))
10. If cl.IndentLevel < cl.Offset(1).IndentLevel Then
11. stru(cl.IndentLevel / 2 + 1) = cl.Value
12. Else
13. r2 = r2 + 1
14. For c = 1 To 3
15. .Cells(r2, c) = stru(c)
16. Next
17. .Cells(r2, 4) = cl.Value
18. For c = 2 To 7
19. .Cells(r2, c + 3) = Cells(cl.Row, c)
20. Next
21. End If
22. Next
23. End With
24. End Sub
Поставил номера к строка для предметности разговора. убрал одно обьявление и один оператор (за ненадобностью)
начну комментарии с 9 строки.

9. организовываем цикл по всем ячейкам 1-й колонки, начиная со строки 5 до последней непустой в данной колонке, cl - рассматриваемая в каждом шаге цикла ячека.

10.определяем тут записан элемент организационной структуры предприятия или фамилия сотрудника. определяем по количеству отсупов в ячейках. Исходил из такой логики: подразделение без сотрудников - нонсенс. Поэтому если отступов у текущей ячейки меньше, чем у следующей - значит это название подразделения.

11.имя подразделения заносится в массив stru на свой уровень (1, 2 или 3), в зависимости от количества отступов в ячейке. (визуальный анализ показал, что отступов бывает 0, 2, 4, 8)

13. это работник. начинаем запись его данных на 2-й лист в новую строку

14-16.записываем подразделения, к которым он относится.

17.записываем ФИО сотрудника

18-20.переписываем данные о нем на второй лист
все.

самая умная строка здесь - это строка 10. которая принимает решение - это сотрудник или элемент структуры.

[eto]

спасибо, буду разбираться