下面是一个删除行的基本宏。

Sub Delete_Rows()
Dim Wsht as Worksheet: Set Wsht = ActiveSheet
Dim RowNum as Long

With Wsht
For RowNum = .UsedRange.Rows.Count to 1 Step -1
   If .Cells(RowNum, 1) = 1 Then .Rows(RowNum).Delete
Next
End With

End Sub

这是最基本的你可能需要编辑它以适合你的确切要求。

如果L列中只有2和1，您可以尝试以下操作：

i = 2
Do until cells(i, 12) = ""
  if cells(i + 1, 12) = cells(i, 12) and cells(i + 1, 12) <> "" then
    Rows(i + 1).Delete Shift:=xlUp
  else
    i = i + 1
  end if
loop