Групповой поиск и замена

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Групповой поиск и замена (Групповой поиск и замена)

Групповой поиск и замена

Pulse

Дата: Понедельник, 05.12.2011, 09:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 213

Репутация: 16 ±

Замечаний: 0% ±

2013

Как можно в книге Excel заменить за один раз несколько значений ячеек?
Скажем в книге, на разных листах есть ячейка со значением "2" и ячейка со значением "7", двойку нужно заменить на пятёрку, а семёрку на девятку. Важно за один раз произвести такую замену.

Сообщение отредактировал Pulse - Понедельник, 05.12.2011, 09:42

Ответить

Jhonson

Дата: Понедельник, 05.12.2011, 10:59 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Например так:
Запсал макрорекордером

[vba]

Код

Sub Макрос()
      Cells.Replace What:="2", Replacement:="5", LookAt:=xlPart, SearchOrder _
          :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
      Cells.Replace What:="7", Replacement:="9", LookAt:=xlPart, SearchOrder _
          :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

[/vba]

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

Pulse

Дата: Понедельник, 05.12.2011, 14:31 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 213

Репутация: 16 ±

Замечаний: 0% ±

2013

Jhonson, спасибо! Работает, но есть одна оговорка.
Например в ячейках есть следующие значения: 23, +2, Р2, 7, 27 и тд
если менять 2 на 5, то получим 53, +5, Р5, 57 и тд
А надо было поменять только +2 на +5 и 7 на 9.

Кому интересно, вот код меняющий "только двойку" и семёрку.

[vba]

Код

Sub SR3()
S = Array("2", "7") 'Найти:
R = Array("5", "9") 'Заменить на:
For Each ws In Sheets

For i = 0 To UBound(S)
ws.Cells.Replace What:=S(i), Replacement:=R(i), LookAt:=xlPart, SearchOrder:=xlByRows
Next i
Next
End Sub

[/vba]

Спасибо Алексею!

Сообщение отредактировал Pulse - Понедельник, 05.12.2011, 16:04

Ответить

Do-love

Дата: Четверг, 07.08.2014, 20:31 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Господа эксперты! Ситуация следующая есть "книга 1", в которой нужно заменить все значения в столбце. Есть "книга 2", в которой указано какое значение должно быть вместо замененного. В макросах ничего не понимаю. Помогите, пожалуйста!