提取的数据无法全部出来，求教是什么情况

冠品烘焙

这个页面如果用VBA又该如何实现呢。透视表操作步骤有点多

ykcbf1100

有什么问题吗？
原代码是我写的。

冠品烘焙

ykcbf1100 发表于 2024-11-24 16:00
有什么问题吗？
原代码是我写的。

那时候没注意，后来发现后面的数据无法全部显示出来，这个是什么情况呢老师

冠品烘焙

ykcbf1100 发表于 2024-11-24 16:00
有什么问题吗？
原代码是我写的。

我后面用透视表查询的时候发现他没办法全部显示。

ykcbf1100

冠品烘焙 发表于 2024-11-24 16:03
我后面用透视表查询的时候发现他没办法全部显示。

具体一点，哪个客户有问题。

冠品烘焙

ykcbf1100 发表于 2024-11-24 16:08
具体一点，哪个客户有问题。

我刚看了洪濑苏门子弟有数据，

ykcbf1100

经过核查，原代码确定有点问题，现已更正。

ykcbf1100

更正错误。。。

1. Sub ykcbf()    '//2024.11.24
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     ReDim brr(1 To 20000, 1 To 100)
   
6.     On Error Resume Next
   
7.     With Sheets("数据源")
   
8.         r = .Cells(Rows.Count, 1).End(3).Row
   
9.         c = .UsedRange.Columns.Count
   
10.         arr = .[a1].Resize(r, c)
    
11.     End With
    
12.     For i = 2 To UBound(arr)
    
13.         s = arr(i, 1)
    
14.         If Not d.exists(s) Then
    
15.             m = m + 1
    
16.             d(s) = m
    
17.             brr(m, 1) = s
    
18.         End If
    
19.         r = d(arr(i, 1))
    
20.         rq = CDate(arr(i, 2))
    
21.         c = Month(rq) + 1
    
22.         brr(r, c) = brr(r, c) + Val(arr(i, 8))
    
23.     Next
    
24.     With Sheets("统计查看")
    
25.         .[a3:n20000].Clear
    
26.         .[a2].Resize(1, 14).Interior.Color = 49407
    
27.         With .[a3].Resize(m, 14)
    
28.             .Value = brr
    
29.             .Borders.LineStyle = 1
    
30.             .HorizontalAlignment = xlCenter
    
31.             .VerticalAlignment = xlCenter
    
32.         End With
    
33.         For i = 3 To m + 2
    
34.             .Cells(i, 14) = Application.Sum(.Cells(i, 2).Resize(, 12))
    
35.         Next
    
36.     End With
    
37.     Application.ScreenUpdating = True
    
38.     MsgBox "OK！"
    
39. End Sub
    

复制代码

冠品烘焙

ykcbf1100 发表于 2024-11-24 16:32
经过核查，原代码确定有点问题，现已更正。

太强大了非常感谢。