Замена значения ячейки

[Ukhanev]

Привет всем! Нужна помощь в построении макроса
Надо чтоб при запуске макроса менялись значения, допустим
Сыр на Сыр 10
Волк на Собака и тд
т.е. ввести данные и указать на какие менять. Получается, макрос должен найти нужное занчение (старое) и поменять его на новое.

[kalbasiatka]

Эта функция уже реализована в excel: вкладка главная - найти и выделить - заменить

[Ukhanev]

что то не могу найти...
когда я смотрел подобные, то там не было того что мне надо
реализация нужна в Excel 2013г

[IgorGO]

нажмите Ctrl+H и увидите это

[Ukhanev]

Sub Макрос 6()
Dim R As Range, p1, p2, p3, p4
p1 = Range("A34").Value
p2 = Range("A26").Value

p3 = Range("A33").Value
p4 = Range("A27").Value


Set R = Columns("C:C").Find(What:=p1)

If Not R Is Nothing Then
R.Offset(0, 0).Value = p2
End If

Set R = Nothing

Set R = Columns("C:C").Find(What:=p3)

If Not R Is Nothing Then
R.Offset(0, 0).Value = p4
End If

Set R = Nothing

End Sub

надо было через переменную

[Hugo121]

Зачем .Offset(0, 0)? И только один сыр и волк что ли на листе?
Через замену было бы проще.

[Ukhanev]

Да вот не так силен в макрос...если покажешь вариант через замену, буду очень рад

[Hugo121]

Включаете рекордер, проделываете замену по Ctrl+H, выключаете рекордер - вот Вам и готовый код. Далее его можно дорабатывать для универсальности, для замены всех "зверей".

[Ukhanev]

я изначально пробовал через Ctrl+H, не записывает замену

[Hugo121]

Как это не записывает?

Sub Macro2()
    Columns("D:F").Select
    Selection.Replace What:="33", Replacement:="44", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub