Excel VBA 質問スレ Part65

[183 デフォルトの名無しさん (ﾜｯﾁｮｲ 5dce-bVUD) 2020/04/05(日) 12:00:45.64 ID:RR8jfU5J0]

>>180
Sub Macro1()
　　For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
　　　　If Cells(r, 1) = 1 Then Rows(r).Resize(2).Insert
　　Next
End Sub