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

Question

我需要一个代码，当在A列中输入特定名称时，该代码将删除整行。 因此，对于在A列中具有“Surgery”的每一行，都需要将其删除。感谢。

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