Страницы: 1
RSS
Заменить слова в диапазоне ячеек
 
Здравствуйте! Учусь работать с макросами. Подскажите, как заменить слова в определенных ячейках. Объем данных большой.

For Each Cell In Range("B2:B41").Cells 'Ваш пол
Selection.Replace What:="М", Replacement:="1"
Selection.Replace What:="Ж", Replacement:="2"
Изменено: melancholiya - 27.05.2020 16:23:03
 
Анастасия Тобышева, дд. Вам  бы приложить файл-пример с исходными данными (10-15 строк) и рядом показать желаемый результат. НУ и самое главное рязъяснить принцип замены/
а наугад
Код
Sub d()
For Each cell In Range("B2:B41") 'Ваш пол
cell.Replace What:="М", Replacement:="1"
cell.Replace What:="Ж", Replacement:="2"
Next cell
End Sub
Изменено: Mershik - 27.05.2020 16:34:26
Не бойтесь совершенства. Вам его не достичь.
 
Спасибо, попробую!
Обработка анкет. Перевод их в цифровой вид.
Больше 20 вопросов и практически в каждом разные варианты ответов - то есть для каждого вопроса-столбца своя серия замен ответов респондентов.
 
Если в столбце нет заменяемого слова, то программа выдает ошибку. Придется писать все через Если?

Как сделать, чтобы в одном макросе заменять разные слова для разных столбцов

For Each Cell In Range("B2:B41").Cells 'Ваш пол
Cell.Replace What:="М", Replacement:="1"
Cell.Replace What:="Ж", Replacement:="2"
Next Cell
For Each Cell In Range("D2:D41").Cells
Cell.Replace What:="А", Replacement:="1"
Cell.Replace What:="Б", Replacement:="2"
Next Cell

Так выдает ошибку
Страницы: 1
Наверх