怎么从每月数据筛选汇总

最爱咥面

最爱咥面 发表于 2024-8-22 13:12
嗯嗯，像我这样就行
谢谢老师了

就像这样，班级按从小到大排序

ykcbf1100

最爱咥面 发表于 2024-8-22 13:13
就像这样，班级按从小到大排序

你这个班级是中文的，正常排序是大一排在小一前面的。或者，你单独搞个班级排序序列，这样可以按这个序列去排序。

最爱咥面

ykcbf1100 发表于 2024-8-22 13:17
你这个班级是中文的，正常排序是大一排在小一前面的。或者，你单独搞个班级排序序列，这样可以按这个序列 ...

那行，就按老师你说的弄

ykcbf1100

最爱咥面 发表于 2024-8-22 20:26
那行，就按老师你说的弄

你先搞个班级序列？

最爱咥面

ykcbf1100 发表于 2024-8-22 20:32
你先搞个班级序列？

是做个表，里面是班级排序是么

ykcbf1100

最爱咥面 发表于 2024-8-22 20:41
是做个表，里面是班级排序是么

如果你想按班级排序，得先有个班级序列，然后按这个序列去排序。这个班级序列，应该单独搞一个，放到哪个表中去。在汇总表那个工作簿中，单独放一个班级序列表。如果没有这个班级序列，那就按我做的班级排序。

最爱咥面

ykcbf1100 发表于 2024-8-22 20:49
如果你想按班级排序，得先有个班级序列，然后按这个序列去排序。这个班级序列，应该单独搞一个，放到哪个 ...

好的，老师，我加了个班级序列表

最爱咥面

班级序列加入

ykcbf1100

最爱咥面 发表于 2024-8-22 22:43
班级序列加入

改好了，班级按序列排序

ykcbf1100

再加个班级排序

1. Sub ykcbf()              '//2024.8.23   伙食退费汇总,加个合计行,再加个班级
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     Dim tm: tm = Timer
   
6.     Set sh = ThisWorkbook.Sheets("伙食汇总")
   
7.     p = ThisWorkbook.Path & ""
   
8.     With Sheets("班级序列")
   
9.         r = .Cells(Rows.Count, 1).End(3).Row
   
10.         px = Application.Transpose(.[b2].Resize(r - 1, 1))
    
11.     End With
    
12.     ReDim brr(1 To 10000, 1 To 100)
    
13.     On Error Resume Next
    
14.     For Each f In fso.GetFolder(p).Files
    
15.         If LCase$(f.Name) Like "*保教退费*.xls*" Then
    
16.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
17.                 fn = fso.GetBaseName(f)
    
18.                 yf = Val(fn)
    
19.                 n = 3 + yf
    
20.                 Set wb = Workbooks.Open(f, 0)
    
21.                 For Each sht In wb.Sheets
    
22.                     If sht.Name <> "班级序列" Then
    
23.                         With sht
    
24.                             bm = .Name
    
25.                             arr = .UsedRange.Value
    
26.                             Set Rng = .UsedRange.Find("序号")
    
27.                             bt = Rng.Row
    
28.                             For i = bt + 1 To UBound(arr)
    
29.                                 If Val(arr(i, 4)) > 0 Then
    
30.                                     s = bm & "|" & arr(i, 2)   '//班级+姓名
    
31.                                     If Not d.exists(s) Then
    
32.                                         m = m + 1
    
33.                                         d(s) = m
    
34.                                         brr(m, 1) = m
    
35.                                         brr(m, 2) = bm
    
36.                                         brr(m, 3) = arr(i, 2)
    
37.                                     End If
    
38.                                     r = d(bm & "|" & arr(i, 2))
    
39.                                     brr(r, n) = brr(r, n) + Val(arr(i, 4))
    
40.                                 End If
    
41.                             Next
    
42.                         End With
    
43.                     End If
    
44.                 Next
    
45.                 wb.Close False
    
46.             End If
    
47.         End If
    
48.     Next f
    
49.     With sh
    
50.         bt = 3
    
51.         .UsedRange.Offset(bt).Clear
    
52.         With .Cells(bt + 1, 1).Resize(m, 18)
    
53.             .Value = brr
    
54.             .Borders.LineStyle = 1
    
55.             .HorizontalAlignment = xlCenter
    
56.             .VerticalAlignment = xlCenter
    
57.         End With
    
58.         For i = bt + 1 To m + bt
    
59.             .Cells(i, 16) = Application.Sum(.Cells(i, 4).Resize(, 12))
    
60.         Next
    
61.         Set Rng = .Cells(bt + 1, 2).Resize(m, 17)
    
62.         With ActiveSheet.Sort
    
63.             .SortFields.Clear
    
64.             .SortFields.Add2 Key:=Rng.Columns(1), SortOn:=0, Order:=1, CustomOrder:=Join(px, ",")
    
65.             .SetRange Rng
    
66.             .Header = 2   '//不含标题行
    
67.             .Apply
    
68.         End With
    
69.         For j = 4 To 16
    
70.             .Cells(bt, j) = Application.Sum(.Cells(bt + 1, j).Resize(m))
    
71.         Next
    
72.         .UsedRange.Offset(m + bt).Clear
    
73.     End With
    
74.     Set d = Nothing
    
75.     Application.ScreenUpdating = True
    
76.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
77. End Sub
    
78. 
    

复制代码