[已解决]排序

张雄友

排序问题。

最佳答案

月排行榜 / 总排行榜

lyf7276

2013-6-22 08:03

请注意： Dim arr, brr(1 To 30)
    Dim crr(1 To 30)
    For i = 1 To 30
这我设置的都是30，所以工作表的最大数不能超过30，
Sub 工作表排序2()
    Dim a As Integer
    Dim arr, brr(1 To 130)
    Dim crr(1 To 130)
    For i = 1 To 130
    crr(i) = i
    Next
    For i = 1 To Sheets.Count
    men = Sheets(i).Name
    men = Right(men, Len(men) - 1)
    nb = nb & "," & men
    Next
   arr = Split(nb, ",")
   For i = 1 To UBound(arr)
brr(i) = IIf(Left(arr(i), 1) = "十", Application.Match("一" & arr(i), _
Application.Text(crr, "[DBNum1]"), 0), Application.Match(arr(i), Application.Text(crr, "[DBNum1]"), 0))
Next
For i = 1 To UBound(brr)
m = Application.Small(brr, i)
n = IIf(Len(m) = 2 And Left(m, 1) = 1, _
Right(Application.Text(m, "[DBNum1]"), 2), _
Application.Text(m, "[DBNum1]"))

On Error Resume Next
Worksheets("表" & n).Move before:=Worksheets(i)
Next
End Sub
你用上面这段码，如果你的表数超过130，就改这的数字
Dim arr, brr(1 To 130)
    Dim crr(1 To 130)
    For i = 1 To 130 不要用上面的代码了。

跳转到最佳答案楼层

hwc2ycy

1. Sub 工作表排序()
   
2.     Dim i As Integer
   
3.     Dim arr
   
4.     arr = Split([a2], "，")
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     Application.EnableEvents = False
   
8.     Application.Calculation = xlCalculationManual
   
9.    
   
10.    
    
11.     For i = LBound(arr) To Worksheets.Count - 2
    
12.         Worksheets(arr(i)).Move before:=Worksheets(i + 1)
    
13.     Next
    
14.     Application.ScreenUpdating = True
    
15.     Application.DisplayAlerts = True
    
16.     Application.EnableEvents = True
    
17.     Application.Calculation = xlCalculationAutomatic
    
18.     MsgBox "排序完成"
    
19. End Sub

复制代码

hwc2ycy

借A2单元格排序好的内容经过处理取得排序后的数组
然后再排序。

hwc2ycy

hwc2ycy

1. Sub 工作表排序()
   
2.     Dim i As Integer
   
3.     Dim arr
   
4.     arr = Split(Worksheets("表六").[a2].Value, "，")
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     Application.EnableEvents = False
   
8.     For i = LBound(arr) To Worksheets.Count - 2
   
9.         Worksheets(arr(i)).Move before:=Worksheets(i + 1)
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12.     Application.DisplayAlerts = True
    
13.     Application.EnableEvents = True
    
14.     MsgBox "排序完成"
    
15. End Sub

复制代码

张雄友

hwc2ycy 发表于 2013-6-21 21:16

此方法借助单元格  A2，实现，假如没有A2 单元格的存在就会下标越界的，
arr = Split([a2], "，")

能改通用一些吗？就是不借助A2单元格。

hwc2ycy

这种中文的标题名，特别是后面的大写数字，在排序的时候，用内置的排序功能是排不出你想要的结果的，排序按字符编码的顺序来。

除非取出后面的大写汉字再转化成对应的数值，这样就能排出理想中的顺序。

张雄友

hwc2ycy 发表于 2013-6-21 21:29
这种中文的标题名，特别是后面的大写数字，在排序的时候，用内置的排序功能是排不出你想要的结果的，排序按 ...

arr = Split(Worksheets("表六").[a2].Value, "，")  

这个表六中的A2单元是为了说明写上去的，实际是没有的。有没有办法实现？大师？

hwc2ycy

等下。

张雄友

hwc2ycy 发表于 2013-6-21 21:52
等下。

好的，谢谢了。在线等。