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。次に、OKボタンをクリックすると、データ範囲が下図のように縦方向に逆順になります。

---

セル範囲を横方向に逆順にコピー＆ペーストする

データ範囲を横方向に逆順にするには、次の 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 をダウンロードして、無料トライアルをお試しください！

---

その他の関連するコピー＆ペーストの記事：