[已解决]求助一次性对一个工作薄内的多个工作表排序

安全网

求助高手帮忙

grf1973

1. Sub 一次性排序()
   
2.     Dim Sh As Worksheet
   
3.     arr = Array("I", "M", "O")
   
4.     For i = 1 To 3
   
5.         Set Sh = Worksheets(i)
   
6.         r = Sh.[a65536].End(3).Row
   
7.         Sh.Range("a3:s" & r).Sort key1:=Sh.Cells(3, arr(i - 1)), Order1:=xlAscending
   
8.     Next
   
9. End Sub

复制代码

安全网

grf1973 发表于 2015-12-7 10:32

如果是有6-7个工作表怎么样设置排序，arr = Array("O", "S", "U", "R", "O", "O" "T"),排列的数据是时间如果（2015-6-7）从小到大怎么设置，单元格的区域是Range("a3:z" & r)，请高手帮忙修改下

grf1973

1. Sub 一次性排序()
   
2.     Dim Sh As Worksheet
   
3.     arr = Array("O", "S", "U", "R", "O", "O" "T")
   
4.     For i = 1 To 7
   
5.         Set Sh = Worksheets(i)
   
6.         r = Sh.[a65536].End(3).Row
   
7.         Sh.Range("a3:z" & r).Sort key1:=Sh.Cells(3, arr(i - 1)), Order1:=xlAscending
   
8.     Next
   
9. End Sub

复制代码

安全网

grf1973 发表于 2015-12-8 09:52

帮忙看看在表格内的日期怎么排序不正确，看看是什么原因

grf1973

Sub 一次性排序()
    Dim Sh As Worksheet
    arr = Array("O", "S", "U", "R", "O", "O")
    For i = 1 To 6
        Set Sh = Worksheets(i)
        r = Sh.[a65536].End(3).Row
        Sh.Range("a3:z" & r).Sort key1:=Sh.Cells(3, arr(i - 1)), Order1:=xlAscending
    Next
End Sub

安全网

grf1973 发表于 2015-12-8 13:24
Sub 一次性排序()
    Dim Sh As Worksheet
    arr = Array("O", "S", "U", "R", "O", "O")

运用上面的表2.3排除的结果会这样的是哪个地方出错

安全网

grf1973 发表于 2015-12-8 13:24
Sub 一次性排序()
    Dim Sh As Worksheet
    arr = Array("O", "S", "U", "R", "O", "O")

帮忙看下为什么运行时日期不能从小到大

grf1973

运行下来排好了的。

安全网

grf1973 发表于 2015-12-8 16:55
运行下来排好了的。

单独运行没有问题，如果放在提醒文件内运行就不正确。