当用户决定不更改excel vba中的选择时，如何反转下拉选择？

Sub ReverseDropdown()
    Dim cell As Range
    Dim list() As Variant
    Dim i As Integer

    ' 获取选项列表
    list = Range("A1:A3").Value ' 将范围"A1:A3"替换为实际的选项列表范围

    ' 反转选项列表
    For i = 1 To UBound(list) / 2
        cell = list(i, 1)
        list(i, 1) = list(UBound(list) - i + 1, 1)
        list(UBound(list) - i + 1, 1) = cell
    Next i

    ' 更新下拉列表源范围
    Range("A1:A3").Value = list ' 将范围"A1:A3"替换为实际的选项列表范围
End Sub