数据透视表更新

Adel345

各位大神：

         如附件所示，2024为原数据，2024透视为透视后的数据，橘色部分是第一次透视的，透视结果在2024透视表格中，现在帮忙写个代码，可以更新成加黄色后的数据源，且筛选项是否计入为“Y”，麻烦各位大神了！

cnmlgb9998

是这个效果吗？


PQ 解决。增减修改源数据后，点刷新，能自动生成你要的 透视表。

feilanga

看不懂需求。

ykcbf1100

附件供参考。。。

个人观点：用透视表了就没必要用VBA，用VBA了就没必要再用透视表。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.13
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("2024").UsedRange
   
4.     ReDim brr(1 To UBound(arr), 1 To 2)
   
5.     For i = 2 To UBound(arr)
   
6.         s = arr(i, 1)
   
7.         If UCase(arr(i, 3)) = "Y" Then
   
8.             Sum = Sum + arr(i, 2)
   
9.             If Not d.exists(s) Then
   
10.                 m = m + 1
    
11.                 d(s) = m
    
12.                 brr(m, 1) = s
    
13.                 brr(m, 2) = arr(i, 2)
    
14.             Else
    
15.                 r = d(s)
    
16.                 brr(r, 2) = brr(r, 2) + arr(i, 2)
    
17.             End If
    
18.         End If
    
19.     Next
    
20.     m = m + 1
    
21.     brr(m, 1) = "总计": brr(m, 2) = Sum
    
22.     With Sheets("2024透视")
    
23.         .[f2:g10000] = ""
    
24.         .[f2].Resize(m, 2) = brr
    
25.     End With
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码