Странно, вроде бы на выходных читал коментарий
Hugo, о некоторых недоделках моего макроса (к стати замечание по делу было), а уже сегодня
ни комментария ни изменений в существующих . . . Ладно,
вот еще один макрос (подсмотренный и адаптированный), который должен удалять ВСЕ строки с определенными символами в определенном столбце
Код |
---|
Sub test2()
Dim rFnd As Range, rDel As Range, sAddr As String, iNum As Integer
Dim col As New Collection
Application.ScreenUpdating = False: On Error Resume Next
With Sheets(2)
For iNum = 1 To .[a1].CurrentRegion.Count
col.Add .Cells(iNum, 1), CStr(.Cells(iNum, 1))
Next
End With
If Len(col.Item(1)) = 0 Then MsgBox "Нет условий для удаления строк": Exit Sub
For iNum = 1 To col.Count
With Sheets(1).Range("B:B")
Set rFnd = .Find(What:=col(iNum), Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)
If Not rFnd Is Nothing Then
Set rDel = rFnd
sAddr = rFnd.Address
Set rFnd = .FindNext(After:=rFnd)
Do Until rFnd.Address = sAddr
Set rDel = Union(rDel, rFnd)
Set rFnd = .FindNext(After:=rFnd)
Loop
End If
End With
If Not rDel Is Nothing Then rDel.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub
|
П.С. единственное замечание условия должны идти без пустых строк(если их несколько) и начинаться с ячейки А1