求帮忙使用vba 将合并表格拆分为树形结构

EXCEL爱好者2

求助，将合并表格拆分为树形结构，效果如下图：


数据附件， 合并表拆分为树形结构.rar (10.57 KB, 下载次数: 12)

2019-9-7 11:01 上传

点击文件名下载附件

大灰狼1976

1. Sub test()
   
2. Dim arrOri, arrRst, i&, j&, r&
   
3. arrOri = [a1].CurrentRegion
   
4. ReDim arrRst(1 To UBound(arrOri) * 4, 1 To 5)
   
5. Range("k:o").ClearContents
   
6. [k1:o1] = Application.Index(arrOri, 1)
   
7. r = 1
   
8. For i = 2 To UBound(arrOri)
   
9.   For j = 1 To UBound(arrOri, 2) - 1
   
10.     arrRst(r, j) = arrOri(i, j)
    
11.     If arrOri(i, j) <> "" Then r = r + 1
    
12.   Next j
    
13.   arrRst(r - 1, 5) = arrOri(i, 5)
    
14. Next i
    
15. [k2].Resize(r - 1, 5) = arrRst
    
16. End Sub

复制代码

deadzlq

PowerPivot参考 - 大纲调整

opel-wong

这个题目有点意思，留个记号，关注一下。

EXCEL爱好者2

deadzlq 发表于 2019-9-7 11:47
PowerPivot参考 - 大纲调整

谢谢大神的解答，有个不足之处：数据要与最末一级标题在同一行上

shongshon22

好东西，保存了谢谢。

EXCEL爱好者2

大灰狼1976 发表于 2019-9-7 11:25

very good,大神好牛,谢谢！！

3201967906

好东西，保存了谢谢。