如何在Excel中使用VBA对列标题和值A到Z(按字母顺序)进行排序

Sub SortColumns()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要排序的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 设置要排序的范围，这里假设要排序的数据从A1开始，且没有空白行或列
    Set rng = ws.Range("A1").CurrentRegion
    
    ' 对列标题进行排序
    With rng.Rows(1)
        .Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
    End With
    
    ' 对值A到Z进行排序
    With rng.Offset(1).Resize(rng.Rows.Count - 1)
        .Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
    End With
End Sub