月份数据透视表排序的问题

ymcly2009

各位好，1月-12月，生成数据透视表，默认顺序为10月、11月、12月、1月、2月....9月，有什么办法可以实现从1月-12月的顺序排列吗？（这里我只用简单表格举例）
谢谢

一剑惊心

在透视表里手工把10-12月拖至末端

3190496160

vba代码分类汇总，实现透视表的效果就行了吧

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim brr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:b" & rs)
    ReDim brr(1 To UBound(ar), 1 To 2)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            t = d(Trim(ar(i, 1)))
            If t = "" Then
                k = k + 1
                d(Trim(ar(i, 1))) = k
                t = k
                brr(k, 1) = ar(i, 1)
            End If
            brr(t, 2) = brr(t, 2) + ar(i, 2)
        End If
    Next i
    .[e1].Resize(1, 2) = Array("月份", "金额")
    .[e2].Resize(k, 2) = brr
End With
MsgBox "ok!"

End Sub

3190496160

排序.rar (19.53 KB, 下载次数: 11)

2022-6-18 09:55 上传

点击文件名下载附件

ymcly2009

谢谢大家，高手很多

fshhhf

文件→选项→高级→编辑自定义列表→按顺序输入月份→确定