Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Групповой поиск и замена - Мир MS Excel

  • Страница 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
 
Ответить
СообщениеКак можно в книге Excel заменить за один раз несколько значений ячеек?
Скажем в книге, на разных листах есть ячейка со значением "2" и ячейка со значением "7", двойку нужно заменить на пятёрку, а семёрку на девятку. Важно за один раз произвести такую замену.

Автор - Pulse
Дата добавления - 05.12.2011 в 09:40
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]


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеНапример так:
Запсал макрорекордером

[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]

Автор - Jhonson
Дата добавления - 05.12.2011 в 10:59
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
 
Ответить
Сообщение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 в 14:31
Do-love Дата: Четверг, 07.08.2014, 20:31 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Господа эксперты! Ситуация следующая есть "книга 1", в которой нужно заменить все значения в столбце. Есть "книга 2", в которой указано какое значение должно быть вместо замененного. В макросах ничего не понимаю. Помогите, пожалуйста!
К сообщению приложен файл: 5371896.xls (37.5 Kb) · 5525222.xlsx (28.1 Kb)


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

Автор - Do-love
Дата добавления - 07.08.2014 в 20:31
Pelena Дата: Четверг, 07.08.2014, 20:34 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19518
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
Do-love, прочитайте Правила форума и создайте свою тему. Эта тема закрыта


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеDo-love, прочитайте Правила форума и создайте свою тему. Эта тема закрыта

Автор - Pelena
Дата добавления - 07.08.2014 в 20:34
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!