在VBA中使用Excel的比较运算符？

Question

我试图弄清楚如何使用与Excel相同的比较运算符来对字母数字值进行排序，如下所示：

0
9
34
51
123abc
15
a
a1b23c
i
z
34ui
10
d
1
12

排序时，结果如下：

0
1
9
10
12
15
34
51
123abc
34ui
a
a1b23c
d
i
z

是否可以使用Excel用于获得此结果的比较运算符？ 还是有必要为此创建我自己的功能？

Answer 1

我只是继续创建了一个比较函数，该函数的返回值与StrComp()因为似乎还没有返回值。

Function ExcelCompare(ByVal str1 As String, ByVal str2) As Integer
    Dim isnum1 As Boolean
    Dim isnum2 As Boolean
    isnum1 = IsNumeric(str1)
    isnum2 = IsNumeric(str2)
    ExcelCompare = StrComp(str1, str2)
    If isnum1 And Not isnum2 Then
        ExcelCompare = -1
    ElseIf Not isnum1 And isnum2 Then
        ExcelCompare = 1
    ElseIf isnum1 And isnum2 Then
        Dim num1 As Double
        Dim num2 As Double
        num1 = CDbl(str1)
        num2 = CDbl(str2)
        If num1 = num2 Then
            ExcelCompare = 0
        ElseIf num1 < num2 Then
            ExcelCompare = -1
        Else
            ExcelCompare = 1
        End If
    End If
End Function