有没有办法在VBA中按下拉字段的.column进行排序？

Sub SortComboBox()
    Dim comboBox As ComboBox
    Dim data() As Variant
    Dim i As Long, j As Long, temp As Variant
    
    ' 获取ComboBox控件对象
    Set comboBox = Sheet1.ComboBox1
    
    ' 获取下拉字段的数据源数组
    data = comboBox.List
    
    ' 使用冒泡排序对数据源数组进行排序
    For i = LBound(data) To UBound(data) - 1
        For j = i + 1 To UBound(data)
            If data(i) > data(j) Then
                temp = data(i)
                data(i) = data(j)
                data(j) = temp
            End If
        Next j
    Next i
    
    ' 清空下拉字段
    comboBox.Clear
    
    ' 将排序后的数据逐个添加到下拉字段中
    For i = LBound(data) To UBound(data)
        comboBox.AddItem data(i)
    Next i
End Sub