EXCEL VBAで色付きの行を消す(一行飛ばし) Sub DelRows() Dim i As Integer Dim c As Integer i = 1 Do i = i + 1 c = Cells(i, 1).Interior.ColorIndex Rows(i).Delete Loop While c <> -4142 End Subちょっと用事で使ったのでメモ EXCELはいろいろ出来た方…