Анастасия Тобышева, дд. Вам бы приложить файл-пример с исходными данными (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
Спасибо, попробую! Обработка анкет. Перевод их в цифровой вид. Больше 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