Дерево просмотра таблицы в Excel

У меня есть данные в Treeview и будет ссылаться на его преобразование в табличный формат; например:

Доступные данные

доступный формат:
введите описание изображения здесь

Требуемый формат:

введите описание изображения здесь

    вы пробовали что-нибудь решить эту проблему? Обычно лучше сделать такую ​​запись и поделиться тем, что вы пробовали до сих пор. То, как вы задали вопрос: «Вот моя проблема, пожалуйста, разрешите это для меня» – это больше того, на что вы наняли консультанта, а не на форум для помощи по конкретным вопросам. Кроме того, просьба представить образцы данных, а не только снимки экрана.

    Это, как говорится, вот НАЧИНА (не полный!) Какого-то кода, который поможет вам начать. Я не знаю, как выглядят ваши данные, и каковы ваши конкретные требования для форматирования вывода, но по крайней мере вы сможете проходить через разные столбцы.

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

    Sub convertTreeView() Dim i(1 To 5) As Long 'iterators for each column (A to E) Dim j As Long 'iterator for Output Worksheet Dim ws As Worksheet 'Tab where TreeView exists Dim outWS As Worksheet 'Output data on this tab 'set ws = application.Workbooks("").Worksheets("") 'Fill this is with your workbook/worksheet name 'set outWS = application.Workbooks("").Worksheets("") 'Fill this is with your workbook/worksheet name Set ws = Sheet1 Set outWS = Sheet2 j = 1 For i(1) = 1 To ws.UsedRange.Rows.Count Debug.Print i(1) If ws.Cells(i(1), 1) <> "" Then 'New level 1 'Add new row to outws j = j + 1 outWS.Range("A" & j).Value = ws.Cells(i(1), 1) 'Add Level 2 outWS.Range("B" & j).Value = ws.Cells(i(1), 2) 'Add multiple Level 3 'INSERT CODE HERE End If 'ws.cells(i(1), 1) <> "" Next i(1) End Sub 
    Interesting Posts
    Давайте будем гением компьютера.