Страницы: 1
RSS
Макрос для замены нескольких значений в стобце на одно.
 
Добрый день. Есть столбец в таблице. В этом столбце 1000 ячеек с различными номерами. Мне надо заменить в этом столбце некоторые из них (313, 216, 237, 391, 127, 190, 127, 402, 407) на текст Д/Р.
Подскажите пожалуйста макрос для реализации этой задачи.
З.Ы. Одно и тоже значение в столбце в таблице может повторяться более 30 раз
Изменено: olegispro02 - 05.07.2017 15:11:12
 
Измените отображаеме имя
 
vikttur,поменял
 
Инструмент НАЙТИ/ЗАМЕНИТЬ поможет. 10 - 20 раз повторить действие легче, чем макрос писать.
 
Цитата
макрос для реализации этой задачи
Код
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
 
Kuzmich,спасибо. Подскажите, ещё: как сделать это же, но для выделенного диапазона?
 
Цитата
для выделенного диапазона
Код
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
 
Kuzmich,СПАСИБО
Страницы: 1
Наверх