如何根据原始表中关键列年级+学科+班级不用辅助列生成目标表

chxw68

楼主真的是不管复杂问题还是简单问题一概不会。

yzyyyyyyy

chxw68 发表于 2024-5-29 17:45
楼主真的是不管复杂问题还是简单问题一概不会。

感谢大师热心帮助。大师，这里版本低，无法用.Sort。需要辅助列年级+学科+班级，排序，这样要加辅助列。

chxw68

用早期版本的sort方法排序。

ykcbf1100

yzyyyyyyy 发表于 2024-5-29 17:36
每一行，按参数表中项目名称顺序排列。即最后的结果是再按年级+学科+班级，三个列相加，再排序。这里版本 ...

那再改一下吧。

ykcbf1100

改一下，适应低版本系统。

1. Sub 多条件排序()   '//2024.5.29
   
2.     With Sheets("原始表")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         Set Rng = Range("A2:i" & r)
   
5.         '        With Rng
   
6.         '            .Parent.Sort.SortFields.Clear
   
7.         '            .Sort key1:=.Item(2), order1:=1, key2:=.Item(3), order2:=1, key3:=.Item(4), order3:=1, Header:=2
   
8.         '        End With
   
9.         Rng.Sort key1:=.[b2], order1:=1, key2:=.[c2], order2:=1, key3:=.[d2], order3:=1, Header:=2
   
10.     End With
    
11.     MsgBox "OK！"
    
12. End Sub
    
13. 
    

复制代码

yzyyyyyyy

chxw68 发表于 2024-5-29 18:29
用早期版本的sort方法排序。

感谢大师热心帮助，解决了一大难题。此题的最终目标是，关键列是相同的（年级+学科+班级）的基础上，再按参数表中（项目名称）先后顺序。这个不用工作表排序，直接字典和数组完成。此案例，多字段排序，可作经典案例套用。谢谢大师，大师辛苦了。

ykcbf1100

yzyyyyyyy 发表于 2024-5-29 19:40
感谢大师热心帮助，解决了一大难题。此题的最终目标是，关键列是相同的（年级+学科+班级）的基础上，再按 ...

难道是我看错了？这个工作簿没有参数表的，上一个帖子的工作簿中是有的。

chengyunpan

chxw68 发表于 2024-5-29 17:45
楼主真的是不管复杂问题还是简单问题一概不会。

楼主发帖有576贴之多，想想什么道理吧。

wang-way

练个手

wang-way

今天不练手生疏了