展平大纲数据然后再次重建大纲

Question

致各位同行，

基本上我从一个业务系统中提取了一个 BOM，它生成了一个概述报告（没有模板只是将数据推送到 excel sheet）。其示例如下所示：

我需要展平这个提取物以执行一些操作，无论如何使用显示的列我可以重新重建大纲分组到它的样子吗？

谢谢

Answer 1

Public Sub SetOutline()

  Dim i As Long

  With [A:A].Cells                        'column containing levels
    For i = 1 To .Count
      If IsEmpty(.Item(i)) Then Exit For  'quit at first blank cell
      .Item(i).EntireRow.OutlineLevel = .Item(i).Value + 1 'set outline
'      .Item(i).EntireRow.ClearOutline    'this would remove the outline
    Next i
  End With

End Sub

展平大纲数据然后再次重建大纲

Flattening Outlined Data then rebuild Outlines again

excel

vba

parent

outline