Добрый день! имеется часть кода для удаления строк по условию.
Эта часть кода работает в цикле. Но мне мешает переменная rr0. есть ли какой-то способ обнулить её в конце этой части, что бы она заново задавалась. Спасибо!
Код
Sheets("по ТТ").Activate
Dim sSubStr0 As String 'искомое слово или фраза(может быть указанием на ячейку)
Dim lCol0 As Long 'номер столбца с просматриваемыми значениями
Dim lLastRow0 As Long, li0 As Long
Dim lMet0 As Long
Dim arr0
sSubStr0 = temp
If sSubStr0 = "" Then lMet0 = 0 Else lMet0 = 1
lCol0 = 5
If lCol0 = 0 Then Exit Sub
lLastRow0 = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
arr0 = Cells(1, lCol0).Resize(lLastRow0).Value
Dim rr0 As Range
For li0 = 8 To lLastRow0 'цикл с первой строки до конца
If -(InStr(arr0(li0, 1), sSubStr0) > 0) <> lMet0 Then
If rr0 Is Nothing Then
Set rr0 = Cells(li0, 1)
Else
Set rr0 = Union(rr0, Cells(li0, 1))
End If
End If
Next li0
If Not rr0 Is Nothing Then rr0.EntireRow.Delete
Erase arr0