Страницы: 1
RSS
Замены всего текстового значения в ячейке по признаку, макрос
 
Добрый день,

помогите пожалуйста с составлением макроса.
В первом столбце нужно заменить все ячейки, в которых есть слово "address" на текстовое значение "property address".
Пример файла во вложении  
 
Выделить диапазон, Ctrl+H
Найти: *ADDRESS*
Заменить: property address
ОК
Если нужен макрос, запишите эти действия макрорекодером.
 
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Columns("A:A").Select
    Selection.Replace What:="*address*", Replacement:="property address", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False
End Sub
Это записано рекордером.
Нужно чуть подправить...
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Columns("A:A").Replace What:="*address*", Replacement:="property address", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False
End Sub
Изменено: Hugo - 10.05.2015 17:35:00
 
Круто, работает!
Спасибо огромноеЁ  
Страницы: 1
Наверх