如何在 Excel 中使用 VBA 对列标题以及值 A 到 Z（按字母顺序）进行排序答案

【问题标题】：how can i sort column headers along with values A to Z (Alphabetically) with VBA in Excel如何在 Excel 中使用 VBA 对列标题以及值 A 到 Z（按字母顺序）进行排序
【发布时间】：2020-07-04 23:43:46
【问题描述】：

我正在尝试从 sheet1 运行宏以使用 sheet2 中的 VBA 按标题 A 到 Z 对列进行排序。任何人都可以帮我找出来。

Sub Macro1()
Range("C10:K13").Select
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("C10:K10") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
    .SetRange Range("C10:K13")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlLeftToRight
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

【问题讨论】：

标签： excel vba sorting filter header

【解决方案1】：

据我所知，您无法水平排序，因此我将您的范围转换为垂直排序并在通过transpose function 排序后返回原始值，这是我的方法：

Sub Test()
Dim rng As Range, transposeRng As Range
Set rng = sheets("Sheet2").[C10:K10]: Set transposeRng = sheets("Sheet2").[M6].Resize(rng.Columns.Count, rng.Rows.Count)
transposeRng.Value = Application.Transpose(rng)

    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 Key:=transposeRng.Columns(1) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange transposeRng
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    transposeRng.Clear
    rng.Value = Application.Transpose(transposeRng)
End Sub

【讨论】：

先生这里代码有问题，请纠正....ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 Key:=transposeRng.Columns(1) _ , SortOn:= xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal