要对VBA Excel中的下拉列表框进行按字母顺序排序，可以按照以下步骤进行操作。

首先，确保已经创建了一个下拉列表框，其中包含要排序的选项。

然后，在VBA编辑器中打开工作簿，并在模块中添加以下代码：

Sub SortComboBox()
    Dim i As Long
    Dim temp As String
    Dim arr() As String
    
    ' 将下拉列表框的选项存储到数组中
    With Sheet1.ComboBox1 ' 将Sheet1替换为包含下拉列表框的工作表名称
        ReDim arr(1 To .ListCount)
        For i = 1 To .ListCount
            arr(i) = .List(i - 1)
        Next i
    End With
    
    ' 使用冒泡排序对数组进行排序
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
    
    ' 将排序后的选项重新加载到下拉列表框中
    With Sheet1.ComboBox1 ' 将Sheet1替换为包含下拉列表框的工作表名称
        .Clear
        For i = LBound(arr) To UBound(arr)
            .AddItem arr(i)
        Next i
    End With
End Sub

注意，在上面的代码中，需要将Sheet1替换为包含下拉列表框的工作表的名称。如果下拉列表框位于其他工作表中，请相应地更改工作表名称。

在代码中，我们首先将下拉列表框的选项存储到一个数组中。然后，使用冒泡排序对数组进行排序。最后，将排序后的选项重新加载到下拉列表框中。

运行此宏后，下拉列表框中的选项将按字母顺序进行排序。