如何将汇总表拆分为明细表

Ryeowon

有没有办法把当前样式的表格 转化为 预期样式？原样式是一个汇总表，现在需要拆分成明细。不知道Excel能不能做到。

先谢过各位大神了

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1636144&mobile=&_dsign=d57b1fbe

3190496160

Sub 调整()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim br()
With Sheets("sheet1")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    ar = .Range(.Cells(2, 1), .Cells(rs, y))
End With
ReDim br(1 To 50000, 1 To 5)
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        For j = 2 To UBound(ar, 2) Step 4
            If Trim(ar(i, j + 1)) <> "" Then
                If IsNumeric(ar(i, j + 1)) Then
                    sl = ar(i, j + 1)
                    For s = 1 To sl
                        n = n + 1
                        br(n, 1) = ar(i, 1)
                        lh = 1
                        For jj = j To j + 3
                            lh = lh + 1
                            br(n, lh) = ar(i, jj)
                        Next jj
                    Next s
                End If
            End If
        Next j
    End If
Next i
With Sheets("结果")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, 5) = br
End With
MsgBox "ok!"
End Sub

3190496160

Book2.rar (22.31 KB, 下载次数: 17)

2022-11-8 09:27 上传

点击文件名下载附件

Ryeowon

zpy2 发表于 2022-11-8 08:53
https://club.excelhome.net/forum.php?mod=viewthread&tid=1636144&mobile=&_dsign=d57b1fbe

先谢过这位大神。之前也有尝试过PQ，但是仔细看范例，预期样式是需要把每个描述段的频率细分成独立的行并按照年份排序。不知道PQ是否有类似功能

xbq

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    逆透视的其他列 = Table.UnpivotOtherColumns(源, {"合同号"}, "属性", "值"),
    按照字符转换拆分列 = Table.SplitColumn(逆透视的其他列, "属性", Splitter.SplitTextByCharacterTransition((c) => not List.Contains({"0".."9"}, c), {"0".."9"}), {"属性.1", "属性.2"}),
    删除的列 = Table.RemoveColumns(按照字符转换拆分列,{"属性.2"}),
    已添加条件列 = Table.AddColumn(删除的列, "自定义", each if Text.StartsWith([属性.1], "描述") then "描述" else [属性.1]),
    删除的列1 = Table.RemoveColumns(已添加条件列,{"属性.1"}),
    已添加索引 = Table.AddIndexColumn(删除的列1, "索引", 0, 1, Int64.Type),
    被用整数除的列 = Table.TransformColumns(已添加索引, {{"索引", each Number.IntegerDivide(_, 4), Int64.Type}}),
    已透视列 = Table.Pivot(被用整数除的列, List.Distinct(被用整数除的列[自定义]), "自定义", "值"),
    更改的类型 = Table.TransformColumnTypes(已透视列,{{"起始日期", type date}}),
    已添加自定义 = Table.AddColumn(更改的类型, "自定义", each {1..[付款频率]}),
    #"展开的“自定义”" = Table.ExpandListColumn(已添加自定义, "自定义"),
    将列中的数减去 = Table.TransformColumns(#"展开的“自定义”", {{"自定义", each _ - 1, type number}}),
    已添加自定义1 = Table.AddColumn(将列中的数减去, "自定义.1", each Date.AddMonths([起始日期],[自定义])),
    更改的类型1 = Table.TransformColumnTypes(已添加自定义1,{{"自定义.1", type date}}),
    删除的列3 = Table.RemoveColumns(更改的类型1,{"起始日期", "自定义", "索引"})
in
    删除的列3

Ryeowon

-----已解决，结贴-----