优化删除Excel中的行

Question

我尝试了几种在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")