使用VB创建宏以在Excel中删除行

Question

我需要一个代码，当将特定名称输入A列时，它将删除启动行。 因此，对于列A中具有“手术”的每行，它需要被删除。谢谢。

Answer 1

这应该有效。您只需更改areaToSearch的值以适合您的工作簿。关注关键词的情况，“手术”和“手术”也不一样！我测试了它，它在我制作的一张纸上工作。

Option Explicit 

Sub DeleteSurgery() 

    Dim keyWord As String 
    Dim cell As Range, areaToSearch As Range 

    keyWord = "Surgery" 
    Set areaToSearch = Sheet1.Range("A1:A10") 

    For Each cell In areaToSearch 
     If cell.Value = keyWord Then 
      cell.EntireRow.Delete 
     End If 
    Next cell 

End Sub