Страницы: 1
RSS
Обнуление переменной!
 
Добрый день! имеется часть кода для удаления строк по условию.

Эта часть кода работает в цикле. Но мне мешает переменная 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
Изменено: MIkle Mikle - 08.10.2022 11:53:55
 
Здравствуйте.
Код
Set rr0 = Nothing
Страницы: 1
Наверх