[已解决]VAB设置数据排序

xuflower

根据建档日期，对数据按照日期并对客户进行排序，完成一个客户，在对第二个客户根据日期再进行排序，以此类推，数据比较多，请大家帮我写个V，小弟感激不尽，在线等，~~~~~急急急急。。。。。。

最佳答案

月排行榜 / 总排行榜

1091126096

2013-5-27 14:29

还有点问题，等有时间修改后再发给你。


book2有错误，看排序               

跳转到最佳答案楼层

1091126096

有两栏数据，用哪个 ？            

xuflower

1091126096 发表于 2013-5-27 13:31
有两栏数据，用哪个 ？

用表左边的数据，右边数据为我想达到的效果（即黄色区域）

1091126096

还有点问题，等有时间修改后再发给你。


book2有错误，看排序               

xuflower

1091126096 发表于 2013-5-27 14:29
还有点问题，等有时间修改后再发给你。

看到了，等我试试，给你最佳，多谢了，可否标注一下代码注解

1091126096

xuflower 发表于 2013-5-27 21:26
看到了，等我试试，给你最佳，多谢了，可否标注一下代码注解

有位大师有个 代码注释解释器，挺有用的。http://www.excelpx.com/thread-186721-1-1.html

xuflower

1091126096 发表于 2013-5-27 22:51
有位大师有个 代码注释解释器，挺有用的。http://www.excelpx.com/thread-186721-1-1.html

你介绍的这个东西真的没法说，很好用，昨天忙了忘记给你最佳了，今天补上，多谢你的帮助啊

xuflower

1091126096 发表于 2013-5-27 14:29
还有点问题，等有时间修改后再发给你。

我想问问你，设定变量开始后面的集合单元是什么意思，如果我的筛选条件里有空的单元格，怎么筛选后就会被删除那一行（比如客户姓名为空的时候），能否给我说明一下集合的意思！

1091126096

xuflower 发表于 2013-5-28 18:34
我想问问你，设定变量开始后面的集合单元是什么意思，如果我的筛选条件里有空的单元格，怎么筛选后就会被 ...

什么集合？你是说数组吧？

1091126096

1.   Range("G2").Select
   
2.     Application.CutCopyMode = False
   
3.     Range("A1:G40").Sort Key1:=Range("G2"), Order1:=xlAscending, Key2:=Range( _
   
4.         "B2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
   
5.         :=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
   
6.         xlSortNormal, DataOption2:=xlSortNormal
   
7.     Range("C2").Select
   
8.     Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
   
9.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
   
10.         :=xlPinYin, DataOption1:=xlSortNormal
    
11.     Range("B2").Select
    
12. Dim i, j, a, K, N, sr, ARR(1 To 10000, 1 To 7), ARR2(1 To 10000, 1 To 7)
    
13. a = 1
    
14. For i = 2 To Range("B1").End(xlDown).Row
    
15. sr = Range("B" & i)
    
16. For j = i To Range("B1").End(xlDown).Row
    
17. If Cells(j, 2) = sr Then
    
18. ARR(a, 1) = Cells(j, 1)
    
19. ARR(a, 2) = Cells(j, 2)
    
20. ARR(a, 3) = Cells(j, 3)
    
21. ARR(a, 4) = Cells(j, 4)
    
22. ARR(a, 5) = Cells(j, 5)
    
23. ARR(a, 6) = Cells(j, 6)
    
24. ARR(a, 7) = Cells(j, 7)
    
25. a = a + 1
    
26. End If
    
27. Next j
    
28. Next i
    
29. Range("A2").Resize(a + 1, 7) = ARR
    
30. N = 1
    
31. L = 0
    
32. For i = 1 To 1000
    
33. For j = 1 To i
    
34. K = ARR(i, 1)
    
35. If ARR(j, 1) = K Then
    
36. L = L + 1
    
37. End If
    
38. Next j
    
39. If L = 1 Then
    
40. ARR2(N, 1) = ARR(i, 1)
    
41. ARR2(N, 2) = ARR(i, 2)
    
42. ARR2(N, 3) = ARR(i, 3)
    
43. ARR2(N, 4) = ARR(i, 4)
    
44. ARR2(N, 5) = ARR(i, 5)
    
45. ARR2(N, 6) = ARR(i, 6)
    
46. ARR2(N, 7) = ARR(i, 7)
    
47. N = N + 1
    
48. L = 0
    
49. End If
    
50. L = 0
    
51. Next i
    
52. Range("A2").Resize(a + 1, 7) = ARR2
    
53. End Sub
    

复制代码

你说的是哪一行？