VBA中对存字符串数组的Collection冒泡排序时出现类型不匹配错误

核心错误：Collection的Key参数类型不合法 #

你在DataBase.Add temp, temp, i里把数组temp当作Key参数传入，但VBA的Collection要求Key必须是字符串类型，数组无法作为Key，这直接触发了「类型不匹配」错误。

其他需要调整的点 #

1. temp最好显式声明为Variant类型，避免隐式类型转换的问题；
2. 直接在Collection里做删除/插入操作时，原有的冒泡排序循环逻辑会因为元素索引变化出现漏排，需要调整循环方式。

修正后的代码 #

Dim DataBase As New Collection
Dim temp As Variant
Dim i As Integer, j As Integer

' 排序逻辑（假设已向DataBase添加元素）
For i = 1 To DataBase.Count - 1
    For j = DataBase.Count To i + 1 Step -1
        ' 比较数组的第2个元素（若你的数组是从0开始定义，需改为(0)）
        If DataBase(j)(1) > DataBase(j - 1)(1) Then
            temp = DataBase(j)
            DataBase.Remove j
            DataBase.Add temp, , j - 1 ' 移除不合法的Key参数，仅指定插入位置
        End If
    Next j
Next i

代码说明 #

• 内层循环改为从后往前遍历（Step -1），避免删除元素后索引混乱导致漏排；
• 删掉Add方法的Key参数，若需要Key可改用数组内的唯一字符串，比如DataBase.Add temp, temp(0), j - 1（假设数组第一个元素是唯一标识）；
• 显式声明所有变量，符合VBA规范，减少隐式错误。

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