Sub 列の入れ替え()

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")

    シート名.Range("B2:B6") = C列
    シート名.Range("C2:C6") = B列
   
      
   'G列の値を変数に入れる
    Dim G列 As Variant
    G列 = シート名.Range("G2:G12")
   
   'H列の値を変数に入れる
    Dim H列 As Variant
    H列 = シート名.Range("H2:H12")

    シート名.Range("G2:G12") = H列
    シート名.Range("H2:H12") = G列
   
End Sub