データの２つの項目列を入れ替える方法
AとBの場所を入れ替えるとき、まずはAをどこかに格納し、次にBをAの場所に代入します。
最後に、格納していたAをBの場所に代入して完了です。
では、ワークシートのデータの２つの列を入れ替えるにはどうしたらいいでしょう。問題はAをどこに格納するかです。一般的な変数では、セルの書式が格納できませんし、オブジェクト型変数では、Aの場所にBを代入した時点で、オブジェクト型変数の中身がBに変わってしまいますので変数にAを一時的に格納して待避するのは現実的ではありません。
こんなときは、別の空いているセル範囲にAを一時的に待避させます。では、確実に空いているセル範囲はどこでしょう。それは、新しく追加したワークシート上のセル範囲です。
ワークシートを追加してそのワークシートにAを待避させBをAの場所に代入し、追加したワークシートにあるAをBの場所に代入して、追加したワークシートを削除すれば実現できます。
データの2列目と4列目を入れ替えるコードと解説
Sub 列入替()
Application.ScreenUpdating = False
Worksheets.Add
ActiveSheet.Next.Activate
With ActiveSheet
.Columns(2).Copy .Previous.Range("A1")
.Columns(4).Copy .Columns(2)
.Previous.Columns(1).Copy .Columns(4)
Application.DisplayAlerts = False
.Previous.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
End Sub
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのScreenUpdating【ｽｸﾘｰﾝｱｯﾌﾟﾃﾞｨｰﾃｨﾝｸﾞ】プロパティにFalseを設定することにより画面の更新を止めて処理を高速化します。
3行目【Worksheets.Add】
Worksheets【ﾜｰｸﾌﾞｯｸｽ】コレクションのAdd【ｱﾄﾞ】メソッドで、2列目の待避場所のワークシートを追加します。引数を省略したので、現在アクティブなシートの左隣りに追加されます。
4行目【ActiveSheet.Next.Activate】
3行目でシートを追加した際にアクティブシートが元のアクティブシートから左隣りに追加されたシートになるためWorksheet【ﾜｰｸｼｰﾄ】オブジェクトのNextプロパティを使用してアクティブシートの右隣りのシートを参照してActivate【ｱｸﾃｨﾍﾞｲﾄ】メソッドでアクティブにします。つまり、元のシートをアクティブにします。
5行目【With ActiveSheet】
アクティブシートをWith【ｳｨｽﾞ】ステートメントで指定します。つまり、元のシートを指定します。
6行目【.Columns(2).Copy .Previous.Range(“A1”)】
With【ｳｨｽﾞ】ステートメントで指定したWorksheet【ﾜｰｸｼｰﾄ】オブジェクトの行を表すColumns【ｶﾗﾑｽ】プロパティの引数に2を指定し、2列目を参照してCopy【ｺﾋﾟｰ】メソッドを使用してコピーします。Copy【ｺﾋﾟｰ】メソッドの貼付け先を表す引数Destination【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】にはWorksheet【ﾜｰｸｼｰﾄ】オブジェクトのPrivious【ﾌﾟﾘﾋﾞｱｽ】プロパティを使用してWith【ｳｨｽﾞ】ステートメントで指定したアクティブシートの左隣りのシート、つまり追加したシートを参照してA1セルにコピーした元シートの2列目を貼り付けます。
左隣りを参照するPrivious【ﾌﾟﾘﾋﾞｱｽ】プロパティや右隣りを参照するNext【ﾈｸｽﾄ】プロパティはあくまでも参照するだけです。参照したシートを選択やアクティブにするにはSelect【ｾﾚｸﾄ】メソッドやActivate【ｱｸﾃｨﾍﾞｲﾄ】メソッドを追記します。
7行目【.Columns(4).Copy .Columns(2)】
Wiht【ｳｨｽﾞ】ステートメントで指定したWorksheet【ﾜｰｸｼｰﾄ】オブジェクトの列を表すColumns【ｶﾗﾑｽ】プロパティに引数に4を指定して、4列目を参照してCopy【ｺﾋﾟｰ】メソッドを使用してコピーします。貼付け先を表す、引数Destination【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】にはColumns【ｶﾗﾑｽ】プロパティの引数に2を指定して2列目に貼り付けます。つまり、4列目をコピーして2列目に貼り付けます。
8行目【.Previous.Columns(1).Copy .Columns(4)】
With【ｳｨｽﾞ】ステートメントで指定したアクティブシートのPreviou【ﾌﾟﾘﾋﾞｱｽ】プロパティを使用して、アクティブシートの左隣りを参照して列を表す、Columns【ｶﾗﾑｽﾞ】プロパティの引数に1を指定し1列目を参照してコピーします。つまり、一時的に追加したシートに待避していた元シートの2列目のデータを参照してコピーします。貼付け先を表す、引数Destination【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】には、With【ｳｨｽﾞ】ステートメントで指定したアクティブシートの列を表す、Columns【ｶﾗﾑｽﾞ】プロパティの引数に4を指定しアクティブシートの4列目に貼り付けます。これで、2列目のデータを4列目のデータが入れ替わりました。
9行目～11行目【Application.DisplayAlerts = False
.Previous.Delete
Application.DisplayAlerts = True】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾄ】プロパティにFalseを設定してワークシートを削除するときに発生する確認メッセージのダイアログボックスを抑止します。
With【ｳｨｽﾞ】ステートメントで指定したアクティブシートのPrevious【ﾌﾟﾘﾋﾞｱｽ】プロパティを使用して左隣りのシートを参照してDelete【ﾃﾞﾘｰﾄ】メソッドで削除します。つまり、列のデータの一時待避場所として追加したシートを削除します。
そして、Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾄ】プロパティにTrueを設定して確認メッセージのダイアログボックスの抑止を解除します。
13行目【Application.ScreenUpdating = True】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのScreenUpdating【ｽｸﾘｰﾝｱｯﾌﾟﾃﾞｨｰﾃｨﾝｸﾞ】プロパティにTrueを設定して、抑止していた画面の更新を解除します。
※入れ替えたい列はColumns【ｶﾗﾑｽ】プロパティの引数列番号を変えることで変更できます。
以上で、列を入れ替える方法についての解説を終了します。ありがとうございました。