尝试创建宏以获取用户输入，搜索列标题，然后根据输入按升序对数据进行排序

Sub SortData()
    Dim userInput As String
    Dim searchRange As Range
    Dim searchColumn As Range
    Dim sortColumn As Range
    
    ' 获取用户输入
    userInput = InputBox("请输入要搜索的列标题：")
    
    ' 定义搜索范围
    Set searchRange = ActiveSheet.UsedRange
    
    ' 在第一行中搜索用户输入的列标题
    Set searchColumn = searchRange.Rows(1).Find(What:=userInput, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到列标题，则根据该列进行排序
    If Not searchColumn Is Nothing Then
        ' 定义排序范围（从第二行开始到最后一行）
        Set sortColumn = searchRange.Columns(searchColumn.Column).Offset(1)
        
        ' 对排序范围进行升序排序
        sortColumn.Sort Key1:=sortColumn, Order1:=xlAscending, Header:=xlNo
        
        MsgBox "已按升序对数据进行排序。"
    Else
        MsgBox "未找到该列标题。"
    End If
End Sub