Удалить с таблички АдресДоставкиИзСайта всё кроме названия улицы.
Есть такой код.Он выделяет по заданному слову.а нужно по множеству слов или фраз. типо Донецька ,Героїв Сталінграда и т.д
Есть такой код.Он выделяет по заданному слову.а нужно по множеству слов или фраз. типо Донецька ,Героїв Сталінграда и т.д
Код |
---|
Sub Del_SubStr() Dim sSubStr As String 'искомое слово или фраза(может быть указанием на ячейку) Dim lCol As Long 'номер столбца с просматриваемыми значениями Dim lLastRow As Long, li As Long Dim lMet As Long sSubStr = InputBox("Укажите значение, которое необходимо найти в строке", "Запрос параметра", "";) If sSubStr = "" Then lMet = 0 Else lMet = 1 lCol = Val(InputBox("Укажите номер столбца, в котором искать указанное значение", "Запрос параметра", 1)) If lCol = 0 Then Exit Sub lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = 0 For li = lLastRow To 1 Step -1 If -(InStr(Cells(li, lCol), sSubStr) > 0) <> lMet Then Rows(li).Delete Next li Application.ScreenUpdating = 1 End Sub |