数值累加，但是数据达到几千行就运转不出

3190496160

Tongbaby2020 发表于 2023-5-4 09:17
可以将日期横向吗

当然可以，先学会送小花和说声感谢再说吧

Tongbaby2020

3190496160 发表于 2023-4-29 09:29

VBA的大佬就是强啊，借鉴了，谢谢！

Tongbaby2020

libo5563 发表于 2023-4-30 21:29
分组，加索引，用table.firstn  尽量减少筛选，别嫌公式写的难看，table.selectrows 不能用，慢在这了，   ...

帮我看下附件的PP行不行，但是我觉得PP里面的语句不知道靠不靠谱。

3190496160

Sub 分类累计22()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Dim br()
Set d = CreateObject("scripting.dictionary")
With Sheets("原数据")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "原数据为空！": End
    ar = .Range("a1:d" & r)
End With
ReDim br(1 To UBound(ar), 1 To UBound(ar) * 4)
k = 2: y = 1
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
            br(k, 1) = ar(i, 1)
        End If
        If Trim(ar(i, 2)) <> "" Then
            If IsDate(ar(i, 2)) Then
                lh = d(ar(i, 2))
                If lh = "" Then
                    y = y + 6
                    d(ar(i, 2)) = y
                    lh = y
                    br(1, y - 5) = ar(i, 2)
                    br(2, y - 5) = "预测数量"
                    br(2, y - 4) = "订单数量"
                    br(2, y - 3) = "差异（实际-预测）"
                    br(2, y - 2) = "预测累计"
                    br(2, y - 1) = "订单累计"
                    br(2, y - 0) = "差异累计"
                End If
                br(t, lh - 5) = br(t, lh - 5) + ar(i, 3)
                br(t, lh - 4) = br(t, lh - 4) + ar(i, 4)
                br(t, lh - 3) = br(t, lh - 3) + ar(i, 4) - ar(i, 3)
                If lh = 7 Then
                    br(t, lh) = br(t, lh) + br(t, lh - 5) ''差异累计
                    br(t, lh - 2) = br(t, lh - 2) + ar(i, 3) ''预测累计
                    br(t, lh - 1) = br(t, lh - 1) + ar(i, 4) ''订单累计
                Else
                    br(t, lh) = br(t, lh - 10) + br(t, lh - 4) - br(t, lh - 5)  ''差异累计
                    br(t, lh - 2) = br(t, lh - 2) + br(t, lh - 10) + ar(i, 3) ''预测累计
                    br(t, lh - 1) = br(t, lh - 1) + br(t, lh - 10) + ar(i, 4) ''订单累计
                End If
            End If
        End If
    End If
Next i
With Sheets("目标输出")
    .[a1].CurrentRegion = Empty
    .[a1].Resize(k, y) = br
    .[a1].Resize(k, y).Borders.LineStyle = 1
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

试验.rar (29.63 KB, 下载次数: 5)

2023-5-4 16:46 上传

点击文件名下载附件

3190496160

按最新表格要求写的，结果未核对，先看看，有问题再说吧

adai2014

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    更改的类型 = Table.TransformColumnTypes(源,{{"物料", type text}, {"日期", type date}, {"预测数量", Int64.Type}, {"订单数量", Int64.Type}}),
    已添加索引 = Table.AddIndexColumn(更改的类型, "外索", 1, 1),
    分组的行 = Table.Group(已添加索引, "物料", {"统计", (x)=> [索引=Table.AddIndexColumn(x,"索引",1),A=List.Buffer(索引[预测数量]),累加= Table.AddColumn(索引,"累加",each List.Sum(List.FirstN(A,[索引])))][累加]}),
    #"展开的“计数”" = Table.ExpandTableColumn(分组的行, "计数", {"物料", "日期", "预测数量", "订单数量", "外索", "索引", "累加"}, {"计数.物料", "计数.日期", "计数.预测数量", "计数.订单数量", "计数.外索", "计数.索引", "计数.累加"})
in
    #"展开的“计数”"

libo5563

Tongbaby2020 发表于 2023-5-4 16:25
帮我看下附件的PP行不行，但是我觉得PP里面的语句不知道靠不靠谱。

能用度量值写的尽量用度量值，除非是想增加透视表行标签，列标签 或切片器里显示 增加分析的维度信息，才写在计算列里，计算列是会增加系统的负担，拖慢效率，度量值只有在使用的时候才计算，不使用时是不计算的，写100个度量值和1个度量值，没什么区别，计算列增加100列 表里行数再多些，速度优势又没有了，只要是计算的，pp能完成的，就不考虑pq

Tongbaby2020

3190496160 发表于 2023-5-4 16:46

即使是空值也要有累加和差异可以吗

3190496160

Tongbaby2020 发表于 2023-5-5 09:12
即使是空值也要有累加和差异可以吗

不知道你在说什么？？？？？？？？