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
※このままコピペしたら ??? が付くので、??? だけ消して使う