数组排序——VBA工作簿排序

最新推荐文章于 2024-07-09 23:42:22 发布

Yogurt_cry

最新推荐文章于 2024-07-09 23:42:22 发布

阅读量2k

点赞数

分类专栏： ExcelVBA Yogurt_cry VB.NET学习

本文链接：https://blog.csdn.net/qq_18301257/article/details/83184955

版权

Yogurt_cry 同时被 3 个专栏收录

27 篇文章 0 订阅

订阅专栏

ExcelVBA

8 篇文章 2 订阅

订阅专栏

VB.NET学习

8 篇文章 0 订阅

订阅专栏

Sub OrderBy()
    Dim SheetCount As Long
    SheetCount = ThisWorkbook.Worksheets.Count - 1
    ReDim SheetNameArray(SheetCount)
    Dim Index As Long
    Dim Names As String
    For Index = 0 To SheetCount
        SheetNameArray(Index) = ThisWorkbook.Sheets(Index + 1).Name
    Next
    
    Dim CacheIndex As Long
    Dim Cache As String
    For Index = 0 To SheetCount - 1
        For CacheIndex = Index + 1 To SheetCount
            If SheetNameArray(Index) > SheetNameArray(CacheIndex) Then
                Cache = SheetNameArray(Index)
                SheetNameArray(Index) = SheetNameArray(CacheIndex)
                SheetNameArray(CacheIndex) = Cache
            End If
        Next
    Next
    For Index = 0 To SheetCount
        ThisWorkbook.Worksheets(SheetNameArray(Index)).Move after:=ThisWorkbook.Worksheets(Index + 1)
    Next
    
End Sub