Еще раз здравствуйте. Нашел макрос который идеально мне подходит но не могу понять что нужно написать "Запрос параметра" в строке lCol = Val(InputBox(1, "Запрос параметра", 1))
Описание макроса: Макрос которым можно удалить строки, указав в качестве критерия диапазон значений. Т.е. указав на «Лист2″ в столбце А(начиная с первой строки) несколько значений — они все будут удалены.
Подскажите как должна выглядеть строка кода lCol = Val(InputBox(1, "Запрос параметра", 1))
Ниже макрос
Описание макроса: Макрос которым можно удалить строки, указав в качестве критерия диапазон значений. Т.е. указав на «Лист2″ в столбце А(начиная с первой строки) несколько значений — они все будут удалены.
Подскажите как должна выглядеть строка кода lCol = Val(InputBox(1, "Запрос параметра", 1))
Ниже макрос
Код |
---|
Sub Del_Array_SubStr() Dim sSubStr As String 'искомое слово или фраза Dim lCol As Long 'номер столбца с просматриваемыми значениями Dim lLastRow As Long, li As Long Dim avArr, lr As Long lCol = Val(InputBox(1, "Запрос параметра", 1)) If lCol = 0 Then Exit Sub Application.ScreenUpdating = 0 lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count 'Имя листа с диапазоном значений на удаление With Sheets("Лист2") avArr = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) End With 'удаляем For lr = 1 To UBound(avArr, 1) sSubStr = avArr(lr, 1) For li = lLastRow To 1 Step -1 If CStr(Cells(li, lCol)) = sSubStr Then Rows(li).Delete Next li Next lr Application.ScreenUpdating = 1 End Sub |