Excel VBA数组排序代码异常 2>1比较判定返回False问题排查

核心bug是交换列时使用的临时变量类型定义错误：

• 你将str0/str1/str2定义为String类型，但数组MyArray中第二行（索引1）存储的是数值类型的排序依据值。
• 第一次触发列交换时，数值1被赋值给字符串型临时变量str1时会被隐式转换为字符串"1"，再回写到数组后，该元素的子类型从数值变为字符串。
• 后续比较时，Variant数组中同时存在数值子类型和字符串子类型的元素，触发VBA隐式类型转换逻辑，导致比较结果不符合预期，出现数值2>1判定为False的异常。

另外代码存在两个潜在问题：

• 数组定义为3行（索引0/1/2），但交换列时仅交换了前2行的元素，第三行内容不会随列排序，会出现行列错位。
• 代码未加Option Explicit强制变量声明，MC/Branch1/Branch2属于未声明变量，默认值为Empty，会导致表头输出为空。

1. 将列交换用的临时变量类型改为Variant，适配数组中混合存储文本、数值的场景，避免隐式类型转换。
2. 补全所有行的列交换逻辑，避免排序后行列错位。
3. 代码开头增加Option Explicit，提前声明所有用到的变量，避免未定义变量导致的异常。

Option Explicit

Sub SortButton()
    Dim MyArray As Variant
    ReDim MyArray(0 To 2, 0 To 2) As Variant
    Dim x As Integer, y As Integer, z As Integer
    ' 临时变量改为Variant类型，兼容文本和数值存储
    Dim temp0 As Variant, temp1 As Variant, temp2 As Variant
    ' 声明表头变量，避免未定义错误
    Dim MC As String, Branch1 As String, Branch2 As String
    
    ' 表头赋值可根据实际业务需求修改
    MC = "MC"
    Branch1 = "Branch1"
    Branch2 = "Branch2"

    MyArray(0, 0) = MC
    MyArray(0, 1) = Branch1
    MyArray(0, 2) = Branch2
    MyArray(1, 0) = 1
    MyArray(1, 1) = 2
    MyArray(1, 2) = 0
    ' 第三行存在业务值时在此处赋值即可

    For x = LBound(MyArray, 2) To UBound(MyArray, 2) - 1
        Sheets("Sheet1").Range("A9") = x
        For y = (x + 1) To UBound(MyArray, 2)
            Sheets("Sheet1").Range("A9") = x
            Sheets("Sheet1").Range("A10") = y
            Sheets("Sheet1").Range("A11") = MyArray(1, x)
            Sheets("Sheet1").Range("C11") = MyArray(1, y)
            
            If MyArray(1, x) > MyArray(1, y) Then
                ' 逐行交换对应列的元素
                temp0 = MyArray(0, x)
                temp1 = MyArray(1, x)
                temp2 = MyArray(2, x)
                
                MyArray(0, x) = MyArray(0, y)
                MyArray(1, x) = MyArray(1, y)
                MyArray(2, x) = MyArray(2, y)
                
                MyArray(0, y) = temp0
                MyArray(1, y) = temp1
                MyArray(2, y) = temp2
            End If       
        Next y
    Next x

    Sheets("Sheet1").Range("A1") = MyArray(0, 0)
    Sheets("Sheet1").Range("B1") = MyArray(0, 1)
    Sheets("Sheet1").Range("C1") = MyArray(0, 2)
    Sheets("Sheet1").Range("A2") = MyArray(1, 0)
    Sheets("Sheet1").Range("B2") = MyArray(1, 1)
    Sheets("Sheet1").Range("C2") = MyArray(1, 2)
    ' 需要输出第三行时取消下方注释即可
    ' Sheets("Sheet1").Range("A3") = MyArray(2, 0)
    ' Sheets("Sheet1").Range("B3") = MyArray(2, 1)
    ' Sheets("Sheet1").Range("C3") = MyArray(2, 2)
End Sub

修复后排序逻辑完全符合预期：

1. 初始第二行值为[1,2,0]
2. 第一轮x=0遍历完成后，交换0列和2列，第二行变为[0,2,1]，所有元素保留原有数值类型
3. 第二轮x=1遍历完成后，交换1列和2列，第二行变为[0,1,2]，按升序排列正确

内容的提问来源于stack exchange，提问作者Martin Zanlongo