VBA数组排序

opelwang

请帮忙指点，谢谢！
Public Function GetFolderExcelFiles() As String()
    Dim arr(1 To 12) As String
    arr(1) = "2023年10期月报_902_深圳海洋网_人民币(元)_月报_2024011610025917.xlsx"
    arr(2) = "2023年11期月报_902_深圳海洋网_人民币(元)_月报_2024011610025980.xlsx"
    arr(3) = "2023年12期月报_902_深圳海洋网_人民币(元)_月报_2024011610030047.xlsx"
    arr(4) = "2023年1期月报_902_深圳海洋网_人民币(元)_月报_2024011610025993.xlsx"
    arr(5) = "2023年2期月报_902_深圳海洋网_人民币(元)_月报_2024011610025848.xlsx"
    arr(6) = "2023年3期月报_902_深圳海洋网_人民币(元)_月报_2024011610025953.xlsx"
    arr(7) = "2023年4期月报_902_深圳海洋网_人民币(元)_月报_2024011610030020.xlsx"
    arr(8) = "2023年5期月报_902_深圳海洋网_人民币(元)_月报_2024011610030033.xlsx"
    arr(9) = "2023年6期月报_902_深圳海洋网_人民币(元)_月报_2024011610025967.xlsx"
    arr(10) = "2023年7期月报_902_深圳海洋网_人民币(元)_月报_2024011610025939.xlsx"
    arr(11) = "2023年8期月报_902_深圳海洋网_人民币(元)_月报_2024011610030007.xlsx"
    arr(12) = "2023年9期月报_902_深圳海洋网_人民币(元)_月报_2024011610030060.xlsx"
    GetFolderExcelFiles = arr
End Function

假如已知GetFolderExcelFiles数组，现在需要对此数组排序，实现结果顺序：
2023年1期月报_902_深圳海洋网_人民币(元)_月报_2024011610025993.xlsx
2023年2期月报_902_深圳海洋网_人民币(元)_月报_2024011610025848.xlsx
...
2023年11期月报_902_深圳海洋网_人民币(元)_月报_2024011610025980.xlsx
2023年12期月报_902_深圳海洋网_人民币(元)_月报_2024011610030047.xlsx

注意：字符串前部分内容是有规则的，2023年?期月报
字符串后部分内容没有规则。


Sub 需要排序()
    Dim arr() As String
    arr = GetFolderExcelFiles
    Stop
End Sub

jiangxiaoyun

将 12期  2期  ，这些做个顺序，1期，2期，3期，再遍历一下不就好了。

dragonthree

加一列不就可以了吗？split(arr(1),"年")(0)*100+split(split(arr(1),"年")(1),"期")(0)