Sub 列挿入() Dim a, b, i As Long '-----------------------------a = 19 '←列最後b = 3 '←列最初'----------------------------- For i = a To b Step -2 '列最後から2列固定の1列挿入 Columns(i).Insert Next End Sub