多列数值如何颠倒前后排列顺序

lijian8003

A列、B列、C列、D列、E列......等多列数值，如何前后顺序颠倒为......E列、D列、C列、B列、A列？即最后一列数值变为A列，倒数第二列数值变为B列......恳望大师帮助！

goodlong

这样可以吗？

doitbest

加辅助行再排序，很好

likeliuhp

大赞 添加行的方法

Woody1987

Sub 排序_选区按列降序()
    Dim xRg As Range, yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then '若选取的表格数为1
        MsgBox "请选择多个表格", vbExclamation, "提示"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlDescending 'xlAscending表示按正序排序(即：从小到大排序)；xlDescending 表示按倒序排序(即：从大到小排序)
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub