Excel-如何从右到左转换/逆转列序列

Question

我有一个Excel工作表，其中包含约50列。 但是当前数据以与要求相反的顺序显示。

现在，我该如何反转列的顺序，以使右侧最末端的列实际上变成左侧的第一列，依此类推。 我基本上需要颠倒列的顺序。

我已经找到了一种使用这种方法以所需格式显示数据的方法-文件，选项，高级，刻度线：从右到左显示图纸应用

但这只是改变了DISPLAY，而不是其中的真实数据，因此，当我复制粘贴此表中的数据时，它再次仅按原始/错误顺序显示数据。

请提出如何做到这一点。

非常感谢。

Answer 1

这个小宏将Sheet1上的列以“翻转”的顺序复制到Sheet2 ：

Sub ColumnFlipper()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    Dim M As Long, N As Long, i As Long
    N = 1
    With s1
        M = .Cells(1, Columns.Count).End(xlToLeft).Column
        For i = M To 1 Step -1
            .Cells(1, i).EntireColumn.Copy s2.Cells(1, N)
            N = N + 1
        Next i
    End With
End Sub

修改工作表名称以适合您的需求。

Answer 2

将其放在另一个工作表（例如Sheet2）的 A1中。

=INDIRECT("Sheet1!R" & ROW()&"C" & X-COLUMN()+1;FALSE)

！ Sheet1是原始工作表。
用总列数替换X。 向右填充X列，然后向下填充。