Excel VBA -创建具有多个组合框的动态用户表单，并将所有组合框的值存储在一个数组中并对其进行排序

Dim comboBoxValues() As Variant
ReDim comboBoxValues(1 To NumberOfComboBoxes) ' NumberOfComboBoxes是组合框的数量

For i = 1 To NumberOfComboBoxes
    comboBoxValues(i) = UserForm1.Controls("ComboBox" & i).Value
Next i

' 冒泡排序示例
For i = 1 To NumberOfComboBoxes - 1
    For j = 1 To NumberOfComboBoxes - i
        If comboBoxValues(j) > comboBoxValues(j + 1) Then
            temp = comboBoxValues(j)
            comboBoxValues(j) = comboBoxValues(j + 1)
            comboBoxValues(j + 1) = temp
        End If
    Next j
Next i