Excel マクロ A列に 指定文字があった場合 行を右に移動させる (繰り返し) VBA

Sub 右何列目まで移動を繰り返す()

Dim i As Long
Dim MaxRow As Long

MaxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ‘A列の最終セルを指定Application.DisplayAlerts = False ‘メッセージ非表示

For i = 2 To MaxRow ‘最終行まで繰り返す

       If Cells(i, 1).Value = “Bセルに移動” Then

          Range(Cells(i, 1), Cells(i, 1)).Insert Shift:=xlToRight  ‘B列に移動

ElseIf Cells(i, 1).Value = “Cセルに移動” Then

           Range(Cells(i, 1), Cells(i, 2)).Insert Shift:=xlToRight ‘C列に移動

‘それ以外
Else

           Range(Cells(i, 1), Cells(i, 3)).Insert Shift:=xlToRight ‘D列に移動

End If
Next i

Application.DisplayAlerts = True ‘メッセージ再表示

End Sub

 

※このままコピペしたら ??? が付くので、??? だけ消して使う

タイトルとURLをコピーしました