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

我需要一个代码，当在列a中键入特定名称时，该代码将删除enitre行。

---

因此，对于A列中有“外科手术”的每一行，都需要删除它。谢谢。

这应该行得通。您只需更改Area ToSearch的值以适合您的工作簿。另外看案例上的关键词，“手术”和“手术”是不一样的！我测试了这个，它在我做的一张纸上工作

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

---

谢谢你，迈克尔，但当我把它插入时，它不会删除任何内容。我有一个excel工作表，它有一个宏，可以创建一个与原始文件分开的工作表。关键词实际上是MH手术关键词可以是任何东西；只要把它改成任何需要的。粘贴后是否确定正在执行代码（在VBA编辑器中时为F5，光标位于子例程中）？看起来代码没有执行，但我不知道为什么。