VBA中如何对工作表进行排序

最新推荐文章于 2025-03-23 00:56:13 发布

但老师

最新推荐文章于 2025-03-23 00:56:13 发布

阅读量1.2k

点赞数 2

分类专栏： # VBA 文章标签： excel vba 排序

本文链接：https://blog.csdn.net/sinat_41870148/article/details/137648658

版权

VBA 专栏收录该内容

5 篇文章

订阅专栏

该文章详细描述了如何在VBA中使用Move方法对Excel工作表进行按名称降序排序，通过创建数组存储工作表名称，然后进行比较和交换，最后调整工作表的位置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码

在VBA中对工作表进行排序的最简单方法是直接使用Move方法来移动工作表。

Sub SortSheetsByNameDescending()
    Dim sheets
    Dim sheet As Worksheet
    Dim i As Integer, j As Integer
    Dim sortedSheets() As Array

    ' 获取当前工作簿中的所有工作表
    Set sheets = ThisWorkbook.Sheets

    ' 将所有工作表的名称存储到数组中
    ReDim sortedSheets(1 To sheets.Count)
    For i = 1 To sheets.Count
        sortedSheets(i) = sheets(i).Name
    Next i

    ' 对工作表名称数组进行降序排序
    For i = LBound(sortedSheets) To UBound(sortedSheets) - 1
        For j = i + 1 To UBound(sortedSheets)
            If sortedSheets(i) < sortedSheets(j) Then
                ' 交换数组中的元素位置
                Dim temp As String
                temp = sortedSheets(i)
                sortedSheets(i) = sortedSheets(j)
                sortedSheets(j) = temp
            End If
        Next j
    Next i

    ' 根据排序后的数组重新定位工作表
    For i = sheets.Count To 1 Step -1
        Set sheet = sheets(sortedSheets(i))
        sheet.Move Before:=sheets(1)
    Next i
End Sub