利用VBA根据名称末尾的字符在工作表中排序

以下是实现上述功能的示例代码：

Sub SortSheets() Dim ws As Worksheet Dim i As Integer Dim j As Integer

'将工作表存储在数组中
Dim wsArray() As Variant
ReDim wsArray(1 To Worksheets.Count)
For Each ws In Worksheets
    wsArray(i) = ws.Name
    i = i + 1
Next ws
    
'使用冒泡排序将工作表按最后一个字符排序
For i = LBound(wsArray) To UBound(wsArray) - 1
    For j = i + 1 To UBound(wsArray)
        If Right(wsArray(i), 1) > Right(wsArray(j), 1) Then
            Dim temp As Variant
            temp = wsArray(i)
            wsArray(i) = wsArray(j)
            wsArray(j) = temp
        End If
    Next j
Next i

'重命名排序后的工作表
For i = LBound(wsArray) To UBound(wsArray)
    Worksheets(wsArray(i)).Move after:=Worksheets(Worksheets.Count)
    Worksheets(wsArray(i)).Name = "Sheet" & i
Next i

End Sub

代码讲解： 首先使用For Each循环将所有工作表的名称存储在数组wsArray中。 然后使用冒泡排序将工作表按其名称的最后一个字符排序。 最后重命名排序后的工作表，以Sheet后跟其排序顺序的数字命名。 请注意，此代码使用右函数来确定每个工作表名称的最后一个字符，因此它仅适用于名称以字符结尾的工作表。如果您的工作表名称以数字结尾，则需要将代码中的Right函数更改为Left函数或Mid函数。