創建宏以使用VB在Excel中刪除行

Question

我需要一個代碼，當在A列中鍵入特定名稱時，該行將刪除enitre行。因此，對於在A列中具有“外科手術”的每一行，都需要將其刪除。 謝謝。

Answer 1

這應該工作。 您需要做的就是更改areaToSearch的值以適合您的工作簿。 還要注意關鍵字“ Surgery”和“ surgery”不同的情況！ 我對此進行了測試，並將其用於我制作的工作表上。

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