Создание макроса для удаления строк в Excel с использованием VB

Question

Мне нужен код, который удалит строку ввода, когда определенное имя будет напечатано в столбце А. Поэтому для каждой строки, для которой в столбце А указано «Хирургия», его необходимо удалить.Спасибо.

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