Excelで行または列を逆順にコピーして貼り付けるにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-08-26

場合によっては、以下のようにリストの列や行を垂直方向または水平方向に逆順でコピーして貼り付ける必要があるかもしれません。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

行のリストを水平方向に逆順にコピーして貼り付ける

素晴らしい！Chrome、Edge、Firefox、SafariのようにExcelで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. [ OK]ボタンをクリックすると、データ範囲が以下のスクリーンショットに示すように垂直方向に逆転されます：

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

このコードを実行すると、必要なスクリーンショットが得られます：