excel vba通过查看最初的几个字符对数字进行sorting

我想在我的Excel文件中sorting表。 我的表名是12_abc，122_adf，3_dasf，11_ad等。我想根据表格名称中的 “ ”（第一个下划线）之前的数字对表格进行sorting。 在进行sorting时，代码应该明白3应该出现在134之前。代码需要在“ ” 之前取文本并将其转换为数字。

我怎么能这样做？ 这个问题与这个问题非常相似。 我根据收到的评论发布了一个新问题

Answer 1

试一试…

Sub SortSheetTabsAscending() Dim ws As Worksheet Dim i As Integer, j As Integer Application.ScreenUpdating = False Set ws = ActiveSheet For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If Split(Sheets(j).Name, "_")(0) + 0 > Split(Sheets(j + 1).Name, "_")(0) + 0 Then Sheets(j).Move After:=Sheets(j + 1) End If Next j Next i ws.Activate Application.ScreenUpdating = True End Sub