что может быть плохой идеей, если у вас есть несколько листов или рабочих книг, которые могут быть активными.
у удалить все строки, которые не содержат значение «Всего» в диапазоне («B11: B25»).
Ниже мой код.
Dim cell As Range
For Each cell In Range("B11:B25")
If cell.Value <> "Total" Then
cell.EntireRow.Delete
End If
Next
End Sub
Приведенный выше код удалит только некоторые строки с ячейками, которые не имеют значения «Итого». Если мне придется удалить все строки, которые не содержат «Всего», мне придется выполнить это несколько раз, что нецелесообразно.