如何在 Excel 中反向複製和粘貼行或列？

Author: Xiaoyang Last Modified: 2025-08-06

有時候，您可能需要像下面的螢幕截圖所示那樣，將一列或一行列表垂直或水平地反向複製並粘貼。在 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 一樣使用 Efficient Tabs！
每天為您節省 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

運行程式碼後，您將根據需要獲得以下螢幕截圖：