Sub 列の入れ替え2()

Sub 列の入れ替え2()

    Dim 列格納(1) As Variant
    
    列格納(0) = Range("A2:A6")
    列格納(1) = Range("B2:B6")

   Range("B2:B6") = 列格納(0)
   Range("A2:A6") = 列格納(1)

End Sub