如何用宏来对数据做分类筛选

lokamir

附件中要对数据进行统计分类，有没有大神帮一下忙

不知道为什么

这么几行数据自己手填下都比写代码快哦

lokamir

实际数据比这个多得多得多 😰

lokamir

因为表格里涉及到多种条件的分类，是不是每个条件都需要写一个宏呢？

lokamir

不知道为什么 发表于 2019-4-19 22:33
这么几行数据自己手填下都比写代码快哦

实际数据还是非常多的，我只是摘取了一部分

qingc0221

统计表中没有 西安, 就当你不打算统计它

1. Sub main()
   
2.     Dim i As Long
   
3.     Dim m As Long, n As Long
   
4.     Dim d As Object
   
5.     Dim Arr, Res1, Res2
   
6.    
   
7.     Arr = Sheets("数据").Range("A1").CurrentRegion
   
8.     Set d = CreateObject("scripting.dictionary")
   
9.     Range("B2:F5").Clear
   
10.     Range("B8:F10").Clear
    
11.     Res1 = Range("B1:F5")
    
12.     Res2 = Range("B7:F10")
    
13.     For i = 1 To 4
    
14.         d(Res1(1, i)) = i
    
15.     Next i
    
16.     For i = 2 To UBound(Arr)
    
17.         If d.exists(Arr(i, 1)) = True Then
    
18.             Select Case Arr(i, 3)
    
19.                 Case 1, 2, 3:
    
20.                     m = Arr(i, 3)
    
21.                 Case Else:
    
22.                     m = 4
    
23.             End Select
    
24.             n = d(Arr(i, 1))
    
25.             Res1(m + 1, n) = Res1(m + 1, n) + Arr(i, 2)
    
26.             Res1(m + 1, 5) = Res1(m + 1, 5) + Arr(i, 2)
    
27.             Select Case Arr(i, 4)
    
28.                 Case Is < 500:
    
29.                     m = 2
    
30.                 Case Is < 1000:
    
31.                     m = 3
    
32.                 Case Is < 1500:
    
33.                     m = 4
    
34.             End Select
    
35.             Res2(m, n) = Res2(m, n) + Arr(i, 2)
    
36.             Res2(m, 5) = Res2(m, 5) + Arr(i, 2)
    
37.         End If
    
38.     Next i
    
39.     Range("B1").Resize(5, 5) = Res1
    
40.     Range("B7").Resize(4, 5) = Res2
    
41. End Sub

复制代码

zpy2

lokamir 发表于 2019-4-19 23:00
实际数据还是非常多的，我只是摘取了一部分

数据透视表行吗？

jiminyanyan

字典+数组 或 sql

jsqb

统计金额还是数量？也无示例

xinlan6

qingc0221 发表于 2019-4-20 01:18
统计表中没有 西安, 就当你不打算统计它

请教老师，如果统计表需要统计“西安” , 我们该如何修改代码呢？
谢谢老师