用于搜索列并对其进行排序的VBA代码

Sub SortColumn()
    Dim ws As Worksheet
    Dim rng As Range
    Dim searchValue As Variant
    
    ' 设置要搜索的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A10") ' 假设要搜索的范围是A1:A10
    
    ' 设置要搜索的值
    searchValue = "keyword" ' 假设要搜索的关键字是"keyword"
    
    ' 在范围内搜索关键字
    Set rng = rng.Find(searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了关键字
    If Not rng Is Nothing Then
        ' 对找到的列进行排序
        ws.Sort.SortFields.Clear
        ws.Sort.SortFields.Add Key:=rng, SortOn:=xlSortOnValues, Order:=xlAscending
        ws.Sort.SetRange rng.Offset(0, 1).Resize(10, 1) ' 假设要排序的范围是找到的列的右侧一列，假设要排序的范围是10行
        ws.Sort.Header = xlNo
        ws.Sort.MatchCase = False
        ws.Sort.Orientation = xlTopToBottom
        ws.Sort.SortMethod = xlPinYin
        ws.Sort.Apply
    Else
        MsgBox "关键字未找到。"
    End If
End Sub