- Excel VBA 質問スレ Part65
178 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5dce-bVUD)[sage]：2020/04/05(日) 01:56:11.77 ID:RR8jfU5J0 - >>177
If A1 <> B1 Then [C1].Interior.Color = RGB(1, 234, 56)
| - Excel VBA 質問スレ Part65
183 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5dce-bVUD)[sage]：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
|
|