ALT+F11 粘帖下面代码 运行此宏即可
Sub 删除指定内容行()
Dim fincell As Range
On Error Resume Next
Do
With ActiveSheet.Rows("3:65536")
Set findcell = .Cells.Find("分析表", LookAt:=xlPart)
findcell.EntireRow.Delete
Set findcell = .Cells.Find("土建工程", LookAt:=xlPart)
findcell.EntireRow.Delete
Set findcell = .Cells.Find("投标人", LookAt:=xlPart)
findcell.EntireRow.Delete
End With
Loop Until findcell Is Nothing
End Sub
温馨提示:答案为网友推荐,仅供参考