重新排序字符串数组Z-A（按字母顺序反向）

Question

我有一个字符串数组，我需要从Z-A订购：

Dim FolderFiles() As String
FolderFiles = ("ABC","ZYX","MNO","EFG")

我需要以一种显示为

的方式对其进行排序

Dim FolderFilesOrder() As String
'Sort here
FolderFilesOrdered = ("ZYX","MNO", "EFG","ABC")

如果有限制，只比较前3个字母就可以了。

Answer 1

这是对数组进行排序的一种方法。

Sub test()

Dim s1 As String, s2 As String
Dim i As Long, j As Long
Dim myArrray(3) As String

myArrray(0) = "ABC"
myArrray(1) = "ZYX"
myArrray(2) = "MNO"
myArrray(3) = "EFG"

'Sort array in descending
For i = LBound(myArrray) To UBound(myArrray)
    For j = i To UBound(myArrray)
        If UCase(myArrray(j)) > UCase(myArrray(i)) Then
            s1 = myArrray(i)
            s2 = myArrray(j)
            myArrray(i) = s2
            myArrray(j) = s1
        End If
    Next
Next

'results in ZYX, MNO, EFG, ABC

End Sub