如何在 Excel 中按相反顺序复制并粘贴行或列？

有时，您可能需要将一列或一行数据以相反的顺序（垂直或水平）复制并粘贴，如下图所示。如何在 Excel 中快速轻松地实现这一操作？

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

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

使用强大功能以相反顺序复制并粘贴多列或多行范围

---

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

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

若要反转一列单元格，请使用以下公式：

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

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

然后，向下拖动填充柄至所需单元格，即可按相反顺序提取单元格值，如下图所示：

---

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

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

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

注意：在上述公式中，A1 是该行的第一个单元格，而 1:1 表示数据所在的行号。如果您的数据位于第 10 行，请将其更改为 10:10.

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

---

使用 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 键运行此代码，将弹出提示框，提醒您选择要垂直反转的数据区域，如下图所示：

4. 然后，单击确定按钮，数据区域即可垂直反转，如下图所示：

---

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

要以水平顺序反转数据区域，请使用以下 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

运行此代码后，您将获得如下图所示的结果：

---

使用强大功能以相反顺序复制并粘贴多列或多行范围

如果您不熟悉上述公式和 VBA 代码，这里推荐一款简单易用的工具——Kutools for Excel，借助其垂直翻转选区和水平翻转选区功能，只需单击一次，即可轻松实现单元格区域的垂直或水平反转。

安装 Kutools for Excel 后，请按以下操作：

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

1. 选择单元格区域，然后点击 Kutools > 范围 > 垂直翻转选区 > 全部（仅翻转内容），见下图：

2. 随后，单元格区域的值将立即垂直反转，如下图所示：

---

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

1. 选择单元格区域，然后点击 Kutools > 范围 > 水平翻转选区 > 全部（仅翻转内容），见下图：

2. 随后，所选区域中的所有单元格值将立即水平反转，如下图所示：

立即点击下载 Kutools for Excel，免费试用吧！

---

更多相关复制粘贴文章：