[已解决]排序

张雄友

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

好的，谢谢了。在线等。

hwc2ycy

表21，写成表二一么？

张雄友

hwc2ycy 发表于 2013-6-21 22:07
表21，写成表二一么？

写成表二十一。

lyf7276

试了N次，应该能通用了
Sub 工作表排序2()
    Dim a As Integer
    Dim arr, brr(1 To 30)
    Dim crr(1 To 30)
    For i = 1 To 30
    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)
If m = 11 Then
n = "十一"
Else
n = Application.Text(m, "[DBNum1]")
End If
On Error Resume Next
Worksheets("表" & n).Move before:=Worksheets(i)
Next
End Sub

张雄友

lyf7276 发表于 2013-6-22 01:55
试了N次，应该能通用了
Sub 工作表排序2()
    Dim a As Integer

运行时错误‘13，类型不匹配。

lyf7276

请注意： 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 不要用上面的代码了。

lyf7276

13楼的代码不要用了，用16楼的。