如何在 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，免費試用！

---

更多相關的複製與貼上文章：