mmm-program.com こちらの記事を参考にさせていただきました！ ``` Private Sub DeleteNgRows() Dim row_End As LongDim rng_DeleteRows As Range '最終行取得row_End = ThisWorkbook.Worksheets("pivot").Cells(Rows.Count, 1).End(xlUp).Row Dim i As Long…