Я пробовал несколько вариантов удаления определенных строк в Excel и решил использовать эту.
Проблема в том, что этот процесс занимает почти 30 минут.
Идея состоит в том, чтобы удалить все строки, где ячейка в столбце M является D, в то время как вы хотите сохранить другую и существующую структуру. Ниже код
Dim lr As Long
Dim j As Integer
lr = ThisWorkbook.Worksheets("FOR CSV").Cells(Rows.Count, 1).End(xlUp).Row
For j = lr To 5 Step -1
If ThisWorkbook.Worksheets("FOR CSV").Range("M" & j).Value = "D" Then
ThisWorkbook.Worksheets("FOR CSV").Rows(j).EntireRow.Delete
End If
Next j
MsgBox ("Unnecessary data removed")