如何根据原始表中班级学科分总分折算分3项填充8项名次和序号以数组形式写入目标表

yzyyyyyyy

yjh_27 发表于 2014-12-26 11:49
你定个规则，在分相同时再按什么排序（如姓名、其他分），否则就是随机的

按折算分，总分

yjh_27

yzyyyyyyy 发表于 2014-12-26 11:51
按折算分，总分

1. Sub aa()
   
2. R = Range("a" & Rows.Count).End(xlUp).Row
   
3. 
   
4. arr = Range("a2:f" & R)
   
5. brr = YjhSort(arr, "1,2", "1,5", "R,-5;1;2")    '学科分班名
   
6. Range("h2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
7. brr = YjhSort(arr, "1,2,2,2", "1,5,6,4", "R,-5;1;1")    '学科分班序
   
8. Range("j2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
9. 'brr = YjhSort(arr, "1,2", "1,5", "R,-5;1;2,-5;1;1")    '学科分班名、学科分班序
   
10. 'Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
11. 
    
12. brr = YjhSort(arr, "-1", "5", "R,0--5;1;12")     '学科分级名
    
13. Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
14. brr = YjhSort(arr, "-1,-1,-1", "5,6,4", "R,0--5;1;11")     '学科分级序
    
15. Range("k2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
16. 
    
17. brr = YjhSort(arr, "1,2", "1,5", "R,5;1;2")    '学科分班倒名
    
18. Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19. brr = YjhSort(arr, "1,2,1,1", "1,5,6,4", "R,5;1;1")    '学科分班倒序
    
20. Range("n2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
21. 'brr = YjhSort(arr, "1,2", "1,5", "R,5;1;2,5;1;1")    '学科分班倒名、学科分班倒序
    
22. 'Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
23. 
    
24. brr = YjhSort(arr, "1", "5", "R,0-5;1;12")     '学科分级倒名
    
25. Range("m2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
26. brr = YjhSort(arr, "1,1,1", "5,6,4", "R,0-5;1;11")     '学科分级倒序
    
27. Range("o2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
28. 
    
29. End Sub
    

复制代码

yzyyyyyyy

yjh_27 发表于 2014-12-26 13:01

感谢大师热心帮助。能否将原始表6列变为目标表30列，
1、以数组形式一次写入目标表30列 。或6列变为30列，或30列变为30列。
2、学科分，总分，折算分分3次写入。或6列变为30列，或30列变为30列。

yzyyyyyyy

yjh_27 发表于 2014-12-26 13:01

大师，又测试了一下。学科分班名，学科分级名，学科分班倒名，学科分级倒名，都正确，学科分班名序，学科分级名序，学科分班倒名序，学科分级倒名序均不正确。

yjh_27

yzyyyyyyy 发表于 2014-12-29 16:04
大师，又测试了一下。学科分班名，学科分级名，学科分班倒名，学科分级倒名，都正确，学科分班名序，学科 ...

1  学科分班名序，学科分班倒名序，不正确已改正
2  与你结果不一致，是因为 学科分，折算分，总分 都一致时“随机”引起

1. Sub aa()
   
2. R = Range("a" & Rows.Count).End(xlUp).Row
   
3. 
   
4. arr = Range("a2:f" & R)
   
5. brr = YjhSort(arr, "1,2", "1,5", "R,-5;1;2")    '学科分班名
   
6. Range("h2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
7. brr = YjhSort(arr, "1,2,2,2", "1,5,6,4", "R,0-5;1;1")    '学科分班序
   
8. Range("j2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
9. 
   
10. brr = YjhSort(arr, "-1", "5", "R,0--5;1;12")     '学科分级名
    
11. Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
12. brr = YjhSort(arr, "-1,-1,-1", "5,6,4", "R,0--5;1;11")     '学科分级序
    
13. Range("k2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
14. 
    
15. brr = YjhSort(arr, "1,2", "1,5", "R,5;1;2")    '学科分班倒名
    
16. Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
17. brr = YjhSort(arr, "1,1,1,1", "1,5,6,4", "R,0-5;1;1")    '学科分班倒序
    
18. Range("n2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19. 
    
20. brr = YjhSort(arr, "1", "5", "R,0-5;1;12")     '学科分级倒名
    
21. Range("m2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
22. brr = YjhSort(arr, "1,1,1", "5,6,4", "R,0-5;1;11")     '学科分级倒序
    
23. Range("o2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
24. 
    
25. End Sub
    

复制代码

准提部林

班　级　　总　分　　学科分　　　折算分　　　倒　序
　６　　　１３１　　　５１　　１３１５１　　　６
　６　　　１１２　　　５１　　１１２５１　　　７
　
　１５　　１４２　　　５１　　１４２５１　　　５
　１５　　１２３　　　５１　　１２３５１　　　６

学科分〔由低而高〕排序，依您如上的模擬，学科分相同時，〔总分〕反而〔高的〕排在前面，為何？
另，為何強制以数组來寫排序，而不使用EXCEL基本的排序搭配公式？

有收到訊息，但因要求以数組寫成，難度太高，只能看看，幫不上忙！
　

准提部林

関于〔折算分〕＝ 总分*１００＋学科分
例一：
总　分　　学科分　　　折算分
２１９　　１１９　　２２０１９
２２０　　　１９　　２２０１９
此兩者〔折算分〕相同，是否合理？
　
例二：
总　分　　学科分　　　折算分
２１９　　１１９　　２２０１９
２２０　　　１５　　２２０１５
〔总分〕高的，反而〔折算分〕較低，是否合理？

若改成：总分*１０００＋学科分　是否更加合理？
总　分　　学科分　　　折算分
２１９　　１１９　　２１９１１９
２２０　　　１９　　２２００１９
２２０　　　１５　　２２００１５

　

yzyyyyyyy

准提部林 发表于 2014-12-30 10:34
関于〔折算分〕＝ 总分*１００＋学科分
例一：
总　分　　学科分　　　折算分

确实是总分*１０００＋学科分，更合理

yzyyyyyyy

再次求助，原始表变目标表

yzyyyyyyy

yjh_27 发表于 2014-12-29 20:53
1  学科分班名序，学科分班倒名序，不正确已改正
2  与你结果不一致，是因为 学科分，折算分，总分 都一 ...

大师，原始表中的数组arr为930行，6列，能否定义目标数组brr()，让数组brr()930行，30列。
原始表
1        班级
2        姓名
3        类型
4        总分
5        学科分
6        折算分

目标表
1        班级
2        姓名
3        类型
4        总分
5        学科分
6        折算分
7        学科分班名
8        学科分级名
9        学科分班序
10        学科分级序
11        学科分班倒名
12        学科分级倒名
13        学科分班倒序
14        学科分级倒序
15        总分班名
16        总分级名
17        总分班序
18        总分级序
19        总分班倒名
20        总分级倒名
21        总分班倒序
22        总分级倒序
23        折算分班名
24        折算分级名
25        折算分班序
26        折算分级序
27        折算分班倒名
28        折算分级倒名
29        折算分班倒序
30        折算分级倒序
然后再一次写入目标表

1. Sub aa() '学科分
   
2. R = Range("a" & Rows.Count).End(xlUp).Row
   
3. arr = Range("a2:f" & R)
   
4. brr = YjhSort(arr, "1,2", "1,5", "R,-5;1;2")    '学科分班名
   
5. Range("h2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
6. brr = YjhSort(arr, "1,2,2,2", "1,5,6,4", "R,0-5;1;1")    '学科分班序
   
7. Range("j2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
8. brr = YjhSort(arr, "-1", "5", "R,0-5;1;12")     '学科分级名
   
9. Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
10. brr = YjhSort(arr, "-1,-1,-1", "5,6,4", "R,0-5;1;11")     '学科分级序
    
11. Range("k2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
12. brr = YjhSort(arr, "1,2", "1,5", "R,5;1;2")    '学科分班倒名
    
13. Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
14. brr = YjhSort(arr, "1,1,1,1", "1,5,6,4", "R,0-5;1;1")    '学科分班倒序
    
15. Range("n2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
16. brr = YjhSort(arr, "1", "5", "R,0-5;1;12")     '学科分级倒名
    
17. Range("m2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
18. brr = YjhSort(arr, "1,1,1", "5,6,4", "R,0-5;1;11")     '学科分级倒序
    
19. Range("o2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
20. End Sub
    
21. Sub aa1() '总分
    
22. R = Range("a" & Rows.Count).End(xlUp).Row
    
23. arr = Range("a2:f" & R)
    
24. brr = YjhSort(arr, "1,2", "1,4", "R,-4;1;2")    '学科分班名
    
25. Range("h2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
26. brr = YjhSort(arr, "1,2,2,2", "1,4,6,4", "R,0-4;1;1")    '学科分班序
    
27. Range("j2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
28. brr = YjhSort(arr, "-1", "4", "R,0-4;1;12")     '学科分级名
    
29. Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
30. brr = YjhSort(arr, "-1,-1,-1", "4,6,4", "R,0-4;1;11")     '学科分级序
    
31. Range("k2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
32. brr = YjhSort(arr, "1,2", "1,4", "R,4;1;2")    '学科分班倒名
    
33. Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
34. brr = YjhSort(arr, "1,1,1,1", "1,4,6,4", "R,0-4;1;1")    '学科分班倒序
    
35. Range("n2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
36. brr = YjhSort(arr, "1", "4", "R,0-4;1;12")     '学科分级倒名
    
37. Range("m2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
38. brr = YjhSort(arr, "1,1,1", "4,6,4", "R,0-4;1;11")     '学科分级倒序
    
39. Range("o2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
40. End Sub
    
41. Sub aa2() '折算分
    
42. R = Range("a" & Rows.Count).End(xlUp).Row
    
43. arr = Range("a2:f" & R)
    
44. brr = YjhSort(arr, "1,2", "1,6", "R,-6;1;2")    '学科分班名
    
45. Range("h2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
46. brr = YjhSort(arr, "1,2,2,2", "1,6,6,6", "R,0-6;1;1")    '学科分班序
    
47. Range("j2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
48. brr = YjhSort(arr, "-1", "6", "R,0-6;1;12")     '学科分级名
    
49. Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
50. brr = YjhSort(arr, "-1,-1,-1", "6,6,6", "R,0-6;1;11")     '学科分级序
    
51. Range("k2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
52. brr = YjhSort(arr, "1,2", "1,6", "R,6;1;2")    '学科分班倒名
    
53. Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
54. brr = YjhSort(arr, "1,1,1,1", "1,6,6,6", "R,0-6;1;1")    '学科分班倒序
    
55. Range("n2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
56. brr = YjhSort(arr, "1", "6", "R,0-6;1;12")     '学科分级倒名
    
57. Range("m2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
58. brr = YjhSort(arr, "1,1,1", "6,6,6", "R,0-6;1;11")     '学科分级倒序
    
59. Range("o2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
60. End Sub

复制代码