VBA中使用工作表排序的方法

veryhao

不错，学习了，谢谢！！

autumnalRain

香川群子 发表于 2014-3-21 14:47
如果排序key参数不止3个，那么在VBA中也可以如下处理：呵呵。

女神，关于使用ARRAY作为参数时，如果里面有很多列怎么办？比如我要删除前126列的重复值时，代码如下

1. Sub test()
   
2.     ActiveSheet.Range("$A$1:$dv$" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates _
   
3.                    Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, _
   
4.                    17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, _
   
5.                    35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, _
   
6.                    53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, _
   
7.                    71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, _
   
8.                    89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, _
   
9.                    106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, _
   
10.                    121, 122, 123, 124, 125, 126), _
    
11.                    Header:=xlNo
    
12. End Sub

复制代码

香川群子

autumnalRain 发表于 2017-8-14 08:45
女神，关于使用ARRAY作为参数时，如果里面有很多列怎么办？比如我要删除前126列的重复值时，代码如下

那你需要解决的问题在哪里？如果你的代码可行，你还想要什么结果？

autumnalRain

香川群子 发表于 2017-8-14 10:57
那你需要解决的问题在哪里？如果你的代码可行，你还想要什么结果？

列数太多时，都需要这样列出来确实不方便。因为我碰到的有更多列要求求不重复的值。比如Columns:=Array(1, 2, 3, ……126） 红色部分可否用什么短代码代替呢？

香川群子

autumnalRain 发表于 2017-8-14 11:05
列数太多时，都需要这样列出来确实不方便。因为我碰到的有更多列要求求不重复的值。比如Columns:=Array(1 ...

Array参数不能使用变量。

找个变通的办法吧。
根据A1所在区域的大小，自动编写对应的宏代码，然后执行。

1. Sub test()
   
2.     Dim ar, j&, m&, n&, s$, tmpMacro$, tmpModule
   
3.    
   
4. '    m = Cells(Rows.Count, 1).End(3).Row
   
5. '    n = Cells(1, Columns.Count).End(1).Column
   
6.    
   
7.     ar = Range("A1").CurrentRegion '确定区域大小 这里是A1所在单元格区域
   
8.     m = UBound(ar): n = UBound(ar, 2) '得到最大行和最大列
   
9.    
   
10.     tmpMacro = "myRemoveDuplicatesMacro" '随便定一个宏名称
    
11.     s = s & "Sub " & tmpMacro & "()" & Chr(10) '宏起始行
    
12.    
    
13.     s = s & "ActiveSheet.Range(""" & Range("A1").CurrentRegion.Address & """).RemoveDuplicates Columns:=Array(1 _" & Chr(10)
    
14.     For j = 2 To n
    
15.         s = s & ", " & j
    
16.         If j Mod 20 = 0 Then s = s & " _" & Chr(10)
    
17.     Next
    
18.     s = s & "), Header:=xlNo" & Chr(10)
    
19.     s = s & "Msgbox ""OK""" & Chr(10)
    
20.     s = s & "End Sub" '宏结束行
    
21. 
    
22.     Msgbox s '确认代码
    
23. 
    
24.     Set tmpModule = ThisWorkbook.VBProject.VBComponents.Add(1)
    
25.         tmpModule.CodeModule.AddFromString s '在本文件中添加新的模块 并写入宏代码
    
26.         Application.Run "" & tmpMacro '执行此宏代码
    
27.         ThisWorkbook.VBProject.VBComponents.Remove tmpModule '删除此临时模块
    
28. End Sub

复制代码

这样生成的模块代码例子如下:

1. Sub myRemoveDuplicatesMacro()
   
2. ActiveSheet.Range("$A$1:$IW$40").RemoveDuplicates Columns:=Array(1 _
   
3. , 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 _
   
4. , 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40 _
   
5. , 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60 _
   
6. , 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80 _
   
7. , 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100 _
   
8. , 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120 _
   
9. , 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140 _
   
10. , 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160 _
    
11. , 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180 _
    
12. , 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200 _
    
13. , 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220 _
    
14. , 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240 _
    
15. , 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 256, 257), Header:=xlNo
    
16. MsgBox "OK"
    
17. End Sub

复制代码

lcjy11185

range.sort，我也做个记号。

达州张先生

香川群子 发表于 2017-8-14 13:16
Array参数不能使用变量。

找个变通的办法吧。

香川老师，能给我写一个多列排序（C-I）列排序的程序吗？多谢！

五指山888

香川群子 发表于 2014-3-21 14:47
如果排序key参数不止3个，那么在VBA中也可以如下处理：呵呵。

好贴，学习了。谢谢！

elepeipei

谢谢大神讲解

MSDN_pan

好帖好帖学习了