FC2ブログ

【エクセルVBA(マクロ)】切り取りと挿入

 ' ※切り取りと挿入、不要な行の削除を繰り返しているだけの簡単な
'  マクロなので、特にコメント等はいれてないです。
Sub User_Column_Swap()

    Range("B31:B50").Select
    Selection.Cut
    Range("A31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("E31:E50").Select
    Selection.Cut
    Range("B31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("C31:C50").Select
    Selection.ClearContents
   
    Range("F31:F50").Select
    Selection.Cut
    Range("D31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("H31:H50").Select
    Selection.Cut
    Range("E31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("J31:J50").Select
    Selection.Cut
    Range("F31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("I31:I50").Select
    Selection.Cut
    Range("G31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("J31:K50").Select
    Selection.Delete Shift:=xlToLeft
End Sub
 
関連記事

コメント

非公開コメント

FC2-Counter (Since 2013/8)