Excel VBA宏根据另一列的条件删除行

Question

我一直在尝试删除一些行，但是无法使其正常工作。 这就是我所拥有的： enter image description here 我需要的是每当列J = 48或51或54或55时，然后删除L列中为空白的行（其他单元格包含文本）。每次数据长度不同时，我都会使用A列，该列没有空单元格来衡量我的范围。需要帮助...

Dim LastRow As Long
  Dim i As Long
  LastRow = Range("A" & Rows.Count).End(xlUp).Row
  For i = 2 To LastRow
        If Range("J" & i).Value = ("48.00" Or "51.00" Or "54.00" Or "55.00") And Range("L" & i).Value = "xlCellTypeBlanks" Then
        .Range("L" & i).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End If
  Next i
End Sub