Существует книга. На первом Листе содержится прайс лист. В Колонке №9 которого есть не нужные мне слова. На листе 2, в столбце 4 - прописаны теже слова, которые мне не нужны. Требуется, небольшой макрос, который может Убрать с Листа 1 столбца 9, слова представленные в Листе 2 столбец 4 Пример приложил. Спасибо.
Существует книга. На первом Листе содержится прайс лист. В Колонке №9 которого есть не нужные мне слова. На листе 2, в столбце 4 - прописаны теже слова, которые мне не нужны. Требуется, небольшой макрос, который может Убрать с Листа 1 столбца 9, слова представленные в Листе 2 столбец 4 Пример приложил. Спасибо.wwizard
Sub www() Dim s&, j&, DL$ s = Range("I" & Rows.Count).End(xlUp).Row With Sheets("Лист2") For j = 2 To .Range("D" & Rows.Count).End(xlUp).Row DL = .Cells(j, 4) Range("I2:I" & s).Replace DL, "", xlPart Next End With End Sub
[/vba]
Это уже для другого прайса? [vba]
Код
Sub www() Dim s&, j&, DL$ s = Range("I" & Rows.Count).End(xlUp).Row With Sheets("Лист2") For j = 2 To .Range("D" & Rows.Count).End(xlUp).Row DL = .Cells(j, 4) Range("I2:I" & s).Replace DL, "", xlPart Next End With End Sub