Excelの行または列間でコンテンツを交換するにはどうすればよいですか？

ワークシートを使用するときに、行または列を交換する必要がある場合があります。 たとえば、列Aを列Dと交換したいのですが、最初に頭に浮かんだのは、コピーアンドペーストコマンドを使用することです。 実際、コピーアンドペーストを除いて、この問題を解決する方法は他にもいくつかあります。

行または列をVBAコードと交換します

Kutools forExcelを使用して行または列をすばやく便利に交換する

Kutools for Excelを使用して、データを行から複数​​の列に転置します

行または列をVBAコードと交換します

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

Sub SwapTwoRange()
'Updateby Extendoffice
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3。 次に、をクリックします ボタンをクリックしてコードを実行すると、スワップするXNUMXつの範囲を選択するためのダイアログが表示されます。スクリーンショットを参照してください。

4。 クリック後 Ok、XNUMXつの範囲が交換されます。 スクリーンショットを参照してください：

Kutools forExcelを使用して行または列をすばやく便利に交換します

Excelの初心者にとってコードは難しいかもしれませんが、それをすばやく実行して時間を節約する簡単な方法はありますか。 もちろん、Kutools for Excelは、行または列をすばやく快適に交換するのに役立ちます。

あなたがインストールしている場合 Kutools for Excel、XNUMXつの列または行をすばやく入れ替えることができます。

1. クリック クツール > レンジ > 範囲を交換する、スクリーンショットを参照してください：

2. 範囲を交換する ダイアログボックスで、をクリックします。  からのボタン スワップ範囲1 スワップする列Aを選択し、をクリックします  からのボタン スワップ範囲2 列Dを選択します。（ 注：スワッピングの範囲は、同じサイズで同一である必要があります。)

3。 次に、をクリックします OK。 XNUMXつの列が交換され、セルの書式も交換されました。 スクリーンショットを参照してください：

これに スワップ範囲■ユーティリティを使用すると、行または列を交換できるだけでなく、XNUMXつの範囲の内容を交換することもできます。 この機能の詳細については、ここをクリックしてください.

今すぐExcel用のKutoolsをダウンロードして無料トライアル！

Kutools for Excelを使用して、データを行から複数​​の列に転置します

デモ：Kutools forExcelで行または列をすばやく交換する

関連記事:

ExcelでXNUMXつのセルの内容をすばやく交換するにはどうすればよいですか？