Цель: я ищу макрос, который может удалять несколько строк на основе критериев ячейки в одном столбце, но я хочу, чтобы макрос запрашивал значение каждый раз, когда он запускается вместо того, чтобы иметь установленное значение, включенное в код. Каждый код, который я нашел онлайн, пока либо не работает, либо закодирован только для одного значения.Excel 2003 - макрос для удаления нескольких строк по значению ячейки
Я использую Excel 2003
Вот один код, который я нашел, что работает для моей цели .. но я хотел бы изменить его как-то так, что он предлагает пользователю ввести определенное количество, а не использовать одно и то же число снова и снова.
Sub Delete_Rows()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("A2:J707"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) = "201" _
Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
End Sub
Пробовали ли вы какие-либо из предлагаемых решений? Если один из них отвечает на ваш вопрос, вы должны отметить его как ответ. – neizan
Да, вторая работала для моих целей, но я новичок, ясно с моей 1 репутацией ... где я помечен как ответ? – elpablo
Ничего, я вижу. – elpablo