EXCEL PQ 逆透视列转换方法

xiee

对逆透视列不清楚用法。求各位指导

为了便于数据透视表需要如下图转换

下图是论坛其他大神帮助转换的，但是没告知具体如何操作。

几经摸索不得要领

求指导关键步骤 授人以渔！ 十分感谢！

原数据


转换后的数据

经费管理.rar (51.48 KB, 下载次数: 131)

2019-7-15 11:15 上传

点击文件名下载附件

wdx223

你的步骤已经达到了你想要的结果，为什么还求助？步骤中多了一步合并和拆分，原表的前两列不用合并

xiee

wdx223 发表于 2019-7-15 14:24
你的步骤已经达到了你想要的结果，为什么还求助？步骤中多了一步合并和拆分，原表的前两列不用合并

这个是 别的大神帮我做到这种结果的  ，我不会做，不知道怎么达到这种情况的。我现只会到 除了前两列的后面选中逆透视 但是 表格还达不到想要的目标，他会用A公司代替 A公司的2017年  A公司_1代替2018年 我能想到的就是增加一个列然后用替换功能 ，这样太繁琐我想一定会有一种简便方法我还不会！
就是操作到如下图片的之后就手工了

everbest2015

Sub zh()
    Dim sh As Worksheet, ar, br(), i&, k&, m&, s$
    Set sh = ThisWorkbook.Sheets("费用总表")
    ar = sh.Range("a1").CurrentRegion
    For i = 3 To UBound(ar)
        s = ar(i, 1)
        If s <> "" Then
            For k = 3 To UBound(ar, 2)
                m = m + 1
                ReDim Preserve br(1 To 5, 1 To m)
                br(1, m) = s
                br(2, m) = ar(i, 2)
                br(3, m) = ar(1, k)
                br(4, m) = ar(2, k)
                br(5, m) = ar(i, k)
            Next
        End If
    Next
    If m > 0 Then
        Set sh = ThisWorkbook.Sheets("转换")
        Application.ScreenUpdating = False
        With sh
            .Cells.Delete shift:=xlUp
            .[a1].Resize(, 5) = Array("费用类别", "细分类别", "公司", "年度", "金额")
            .[a2].Resize(m, 5) = Application.Transpose(br)
            .UsedRange.HorizontalAlignment = xlCenter
            .UsedRange.VerticalAlignment = xlCenter
            .UsedRange.EntireColumn.AutoFit
        End With
        Application.ScreenUpdating = True
    End If
End Sub

everbest2015

提供一种VBA解法，希望能帮到你

everbest2015

提供一种VBA解法，希望能帮到你

chenyun1234

PQ处理还是蛮快的填充-合并列-逆透视-拆分列

zhishengyang

chenyun1234 发表于 2019-7-24 12:01
PQ处理还是蛮快的填充-合并列-逆透视-拆分列

这个是逆透视表吗？

zhishengyang

chenyun1234 发表于 2019-7-24 12:01
PQ处理还是蛮快的填充-合并列-逆透视-拆分列

请问一下，为什么我做出来应用的的步骤只有源？能不能做个动态的教程？

zhishengyang

这个搞定了吗