如何在Excel中以相反的顺序复制和粘贴行或列？

Author: Xiaoyang Last Modified: 2025-05-07

有时，您可能需要将一列或一行列表以相反的顺序垂直或水平复制并粘贴，如下图所示。在Excel中，您如何快速轻松地处理这项任务呢？

a screenshot showing the reverse order of the data after pasting

使用公式以相反顺序复制和粘贴列或行列表

使用VBA代码以相反顺序复制和粘贴列或行范围

通过一个强大的功能以相反顺序复制和粘贴列或行范围

使用公式以相反顺序复制和粘贴列或行列表

以相反顺序垂直复制和粘贴列列表

如果要反转列单元格列表，可以应用以下公式：

在希望反转列顺序的空白单元格中输入或复制以下公式：

=OFFSET($A$15,-(ROW(A1)-1),0)

注意：在上述公式中，A1 是列中的第一个单元格，A15 是列中的最后一个单元格。

然后，向下拖动填充柄到单元格中以相反顺序提取单元格值，如下图所示：

a screenshot of using formula to get the reverse order of a column data

以相反顺序水平复制和粘贴行列表

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一样使用高效标签页！
每天为您节省 50% 的时间，并减少数千次鼠标点击！

要以相反顺序复制和粘贴行列表，请使用以下公式：

在空白单元格中输入或复制此公式：

=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)

注意：在上述公式中，A1是行中的第一个单元格，1:1是数据所在的行号。如果您的数据在第10行，则应将其更改为10:10。

然后，向右拖动填充柄到您要应用此公式的单元格，直到所有值被提取出来，您将获得所有已水平反转的值，见截图：

a screenshot of using formula to get the reverse order of a row data

使用VBA代码以相反顺序复制和粘贴列或行范围

如果您需要以相反顺序复制和粘贴列或行范围，这里我将介绍一些VBA代码来快速轻松地解决它。请按照以下步骤操作：

以相反顺序垂直复制和粘贴列列表

1. 首先，您应该将数据复制并粘贴到新位置，然后按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 单击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：以相反顺序垂直复制和粘贴单元格范围

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. 然后，按F5键运行此代码，弹出一个提示框，提醒选择要垂直反转的数据范围，见截图：

a screenshot of selecting the range of cells you want to reverse after running the VBA code

4. 然后，单击确定按钮，数据范围已垂直反转，见下图：

a screenshot of the original column data

以相反顺序水平复制和粘贴单元格范围

要以水平顺序反转数据范围，请应用以下VBA代码：

VBA代码：以相反顺序水平复制和粘贴单元格范围

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

运行此代码后，您将根据需要获得以下截图：