Sub 列の入れ替え2() Dim 列格納(1) As Variant 列格納(0) = Range("A2:A6") 列格納(1) = Range("B2:B6") Range("B2:B6") = 列格納(0) Range("A2:A6") = 列格納(1) End Sub