Доброй ночи, уважаемые форумчане.
Для удаления всей строки с данными, где в столбце А случается число 562389 я использую следующий макрос:
| Код |
|---|
Sub DelRow1()
Dim ra As Range, delra As Range, Poisk As String, rCell As Range
Application.ScreenUpdating = False
Poisk = "562389"
For Each ra In ActiveSheet.UsedRange.Rows
If Not ra.Find(Poisk, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub |
затем нужно удалить также сроки, где есть число 124578. Я использую той же следующий макрос:
| Код |
|---|
Sub DelRow2()
Dim ra As Range, delra As Range, Poisk As String, rCell As Range
Application.ScreenUpdating = False
Poisk = "124578"
For Each ra In ActiveSheet.UsedRange.Rows
If Not ra.Find(Poisk, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub |
Таким же образом я удаляю числа 794613,159575,356595,157234....
В таком случае у меня 12 аналогичных макросов, где изменена только поисковая цифра.
Помогите пожалуйста усовершенствовать макрос таким образом, чтобы прописать все цифры только в одном макросе. Ну например так:
| Код |
|---|
Sub DelRow()
Dim ra As Range, delra As Range, Poisk As String, rCell As Range
Application.ScreenUpdating = False
Poisk = "124578", "562389", "794613", "159575", "356595", "3157234"
For Each ra In ActiveSheet.UsedRange.Rows
If Not ra.Find(Poisk, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub |
Но этот макрос не работает
