Добрый день. Есть столбец в таблице. В этом столбце 1000 ячеек с различными номерами. Мне надо заменить в этом столбце некоторые из них (313, 216, 237, 391, 127, 190, 127, 402, 407) на текст Д/Р. Подскажите пожалуйста макрос для реализации этой задачи. З.Ы. Одно и тоже значение в столбце в таблице может повторяться более 30 раз
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To iLastRow
If InStr(1, "313, 216, 237, 391, 127, 190, 127, 402, 407", Cells(i, 1)) <> 0 Then
Cells(i, 1) = "Д/Р"
End If
Next
End Sub
Sub Tablica()
Dim cell As Range
If Selection.Count >= 1 Then
For Each cell In Selection
If Not IsEmpty(cell) Then
If InStr(1, "313,216,237,391,127,190,127,402,407", cell.Value) <> 0 Then
cell = "Д/Р"
End If
End If
Next
End If
End Sub