Excelでセルの入れ替えを行いたい
![ナンバー、名前、都道府県の表](http://cdn2.aprico-media.com/production/imgs/images/000/090/376/original.jpg?1666703219)
Excelでセルの入れ替えを行う方法
セルを上下で入れ替える
![入れ替えたいセルの範囲を選択した状態で「Ctrlキー+Xキー」を同時押し](http://cdn2.aprico-media.com/production/imgs/images/000/090/363/original.jpg?1666701806)
![挿入したい行の下のセルを右クリックし「切り取ったセルの挿入」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/090/364/original.jpg?1666701858)
![切り取ったセルを挿入できた](http://cdn2.aprico-media.com/production/imgs/images/000/090/365/original.jpg?1666701945)
セルを左右で入れ替える
![入れ替えたいセルの範囲を選択して「Ctrlキー+Xキー」](http://cdn2.aprico-media.com/production/imgs/images/000/090/366/original.jpg?1666702151)
![挿入したい列の右側の先頭のセルを選択した状態で右クリックし「切り取ったセルの挿入」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/090/367/original.jpg?1666702198)
ドラッグ操作で入れ替える
![セルを選択した状態でカーソルの境界線にマウスカーソルを重ねる→「Shiftキー」を押しながらドラッグ](http://cdn2.aprico-media.com/production/imgs/images/000/090/368/original.jpg?1666702289)
![H型のマーカーがセルを入れ替えたい場所に表示されたらクリックから指を離す](http://cdn2.aprico-media.com/production/imgs/images/000/090/369/original.jpg?1666702345)
コピペで入れ替える
![入れ替えたいセル範囲を「Ctrlキー+Xキー」で切り取り、他のセルに「Ctrlキー+Vキー」で貼り付ける](http://cdn2.aprico-media.com/production/imgs/images/000/090/370/original.jpg?1666702566)
![入れ替えたい場所にセル範囲を再度「Ctrlキー+Xキー」で切り取り「Ctrlキー+Vキー」で貼り付ける](http://cdn2.aprico-media.com/production/imgs/images/000/090/371/original.jpg?1666702642)
VBAで入れ替える
![「Ctrlキー+クリック」で交換したいセル範囲を選択→「開発」タブをクリック→「Visual Basic」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/090/372/original.jpg?1666702929)
※開発タブがない場合は、下記リンク先の記事にて開発タブの表示方法を説明していますので併せてご覧ください。
![「ThisWorkbook」を右クリックし「挿入」→「標準モジュール」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/090/373/original.jpg?1666703040)
![下記のコードを入力する](http://cdn2.aprico-media.com/production/imgs/images/000/090/374/original.jpg?1666703084)
Public Sub swap() Dim Name1, Name2 As Range, Name3 As Range If Selection.Areas.Count <> 2 Then Exit Sub Set Name2 = Selection.Areas(1) Set Name3 = Selection.Areas(2) Name1 = Name2.Formula Name2.Formula = Name3.Formula Name3.Formula = Name1 End Sub
![セル範囲を交換して入れ替えできた](http://cdn2.aprico-media.com/production/imgs/images/000/090/375/original.jpg?1666703152)