質問: Format(Cells(1, "E").Value, "yyyymm") Then Rows(i).Copy Rows(i + 1).Insert Shift:=xlDown End If Next End Sub
回答: プログラムは書いたとおりにしか動きません。 3行目で止めているのでそうなります。 ``` - For i = mx To 3 Step -1 + For i = mx To 1 Step -1 ```