Как можно в книге Excel заменить за один раз несколько значений ячеек? Скажем в книге, на разных листах есть ячейка со значением "2" и ячейка со значением "7", двойку нужно заменить на пятёрку, а семёрку на девятку. Важно за один раз произвести такую замену.
Как можно в книге Excel заменить за один раз несколько значений ячеек? Скажем в книге, на разных листах есть ячейка со значением "2" и ячейка со значением "7", двойку нужно заменить на пятёрку, а семёрку на девятку. Важно за один раз произвести такую замену.Pulse
Сообщение отредактировал Pulse - Понедельник, 05.12.2011, 09:42
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]
Спасибо Алексею!
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
Господа эксперты! Ситуация следующая есть "книга 1", в которой нужно заменить все значения в столбце. Есть "книга 2", в которой указано какое значение должно быть вместо замененного. В макросах ничего не понимаю. Помогите, пожалуйста!
Господа эксперты! Ситуация следующая есть "книга 1", в которой нужно заменить все значения в столбце. Есть "книга 2", в которой указано какое значение должно быть вместо замененного. В макросах ничего не понимаю. Помогите, пожалуйста!Do-love