excel界址点表工作表排序

祖国的搬运工

按住Alt不放 依次按f11  、I、M  会弹出一个插件编辑框 将下面代码复制进去运行即可！！可以将工作表按顺序排列
Sub test()
    Dim s As Worksheet
    Dim n() As String
    t = ThisWorkbook.Sheets.Count
    ReDim n(1 To t)
    For i = 1 To t
        n(i) = Sheets(i).Name
    Next
    For i = 1 To t - 1
        For j = i + 1 To t
            If n(i) > n(j) Then
                a = n(i)
                n(i) = n(j)
                n(j) = a
            End If
        Next
    Next
    For i = 1 To t
        Sheets(n(i)).Move Sheets(i)
    Next
End Sub

lyh007

谢谢分享

yzydysyy

谢谢分享,你真的干过地籍测量

原点的守候

粘贴之后怎样操作呢

david_gyl

谢谢分享谢谢分享

谢谢楼主的分享

祖国的搬运工

原点的守候 发表于 2020-11-29 17:32
粘贴之后怎样操作呢

点运行 就可以了