Sub 列の入れ替え2() Dim 列格納(1) As Variant 列格納(0) = Range("A2:A6") 列格納(1) = Range("B2:B6") Range("B2:B6") = 列格納(0) Range("A2:A6") = 列格納(1) End 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") シート名.R…

Sub 条件一致転記() Dim 転記先シート As Worksheet Dim 参照シート As Worksheet Dim 転記先行番号 As Long Dim 参照行番号 As Long Set 転記先シート = Worksheets("Sheet1") Set 参照シート = Worksheets("Sheet2") For 転記先行番号 = 2 To 転記先シート…