Sub 列の入れ替え() Dim シート名 As Worksheet Set シート名 = Worksheets("Sheet1 (3)") 'B列の値を変数に入れる Dim B列 As Variant B列 = シート名.Range("B2:B6") 'C列の値を変数に入れる Dim C列 As Variant C列 = シート名.Range("C2:C6") シート名.R…