Excelでセルの入れ替えを行いたい

Excelでセルの入れ替えを行う方法
セルを上下で入れ替える



セルを左右で入れ替える


ドラッグ操作で入れ替える


コピペで入れ替える


VBAで入れ替える

※開発タブがない場合は、下記リンク先の記事にて開発タブの表示方法を説明していますので併せてご覧ください。


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
