Здраствуйте. В ячейке С1 нужно найти текст из ячейки А1 и заменить текстом из ячейки B1, для С2 искать текст из А2 из заменять текстом из B2 и т.д. Подскажите, пожайлуста, решение данной задачки.
Здраствуйте. В ячейке С1 нужно найти текст из ячейки А1 и заменить текстом из ячейки B1, для С2 искать текст из А2 из заменять текстом из B2 и т.д. Подскажите, пожайлуста, решение данной задачки.Ikurudzz
Sub u_8() Application.ScreenUpdating = False 'отключаем обновление экрана a = Cells(Rows.Count, "c").End(xlUp).Row 'нижняя строка столбца For b = 2 To a 'цикл от 2 до нижней строки c = Range("a" & b).Value d = Range("b" & b).Value e = Range("c" & b).Value Range("c" & b) = Replace(e, c, d) 'заменяем Next Application.ScreenUpdating = True 'включаем End Sub
[/vba] апдэйт так будет надежнее (наверное) [vba]
Код
Sub u_8() Application.ScreenUpdating = False 'отключаем обновление экрана a = Cells(Rows.Count, "c").End(xlUp).Row 'нижняя строка столбца C For b = 2 To a 'цикл от 2 до нижней строки c = " " & Range("a" & b).Value & " " d = " " & Range("b" & b).Value & " " c_ = " " & Range("a" & b).Value & "," d_ = " " & Range("b" & b).Value & "," e = " " & Range("c" & b).Value & " " 'заменяем Range("c" & b) = Trim(Replace(e, c, d)) Range("c" & b) = Trim(Replace(e, c_, d_)) Next Application.ScreenUpdating = True 'включаем End Sub
[/vba]
кривовато получилось, выровняю: [vba]
Код
Sub u_8() Application.ScreenUpdating = False 'отключаем обновление экрана a = Cells(Rows.Count, "c").End(xlUp).Row 'нижняя строка столбца C For b = 2 To a 'цикл от 2 до нижней строки c = " " & Range("a" & b).Value & " " d = " " & Range("b" & b).Value & " " c_ = " " & Range("a" & b).Value & "," d_ = " " & Range("b" & b).Value & "," e = " " & Range("c" & b).Value & " " 'заменяем f = Trim(Replace(e, c, d)) Range("c" & b) = Trim(Replace(f, c_, d_)) Next Application.ScreenUpdating = True 'включаем End Sub
[/vba]
[vba]
Код
Sub u_8() Application.ScreenUpdating = False 'отключаем обновление экрана a = Cells(Rows.Count, "c").End(xlUp).Row 'нижняя строка столбца For b = 2 To a 'цикл от 2 до нижней строки c = Range("a" & b).Value d = Range("b" & b).Value e = Range("c" & b).Value Range("c" & b) = Replace(e, c, d) 'заменяем Next Application.ScreenUpdating = True 'включаем End Sub
[/vba] апдэйт так будет надежнее (наверное) [vba]
Код
Sub u_8() Application.ScreenUpdating = False 'отключаем обновление экрана a = Cells(Rows.Count, "c").End(xlUp).Row 'нижняя строка столбца C For b = 2 To a 'цикл от 2 до нижней строки c = " " & Range("a" & b).Value & " " d = " " & Range("b" & b).Value & " " c_ = " " & Range("a" & b).Value & "," d_ = " " & Range("b" & b).Value & "," e = " " & Range("c" & b).Value & " " 'заменяем Range("c" & b) = Trim(Replace(e, c, d)) Range("c" & b) = Trim(Replace(e, c_, d_)) Next Application.ScreenUpdating = True 'включаем End Sub
[/vba]
кривовато получилось, выровняю: [vba]
Код
Sub u_8() Application.ScreenUpdating = False 'отключаем обновление экрана a = Cells(Rows.Count, "c").End(xlUp).Row 'нижняя строка столбца C For b = 2 To a 'цикл от 2 до нижней строки c = " " & Range("a" & b).Value & " " d = " " & Range("b" & b).Value & " " c_ = " " & Range("a" & b).Value & "," d_ = " " & Range("b" & b).Value & "," e = " " & Range("c" & b).Value & " " 'заменяем f = Trim(Replace(e, c, d)) Range("c" & b) = Trim(Replace(f, c_, d_)) Next Application.ScreenUpdating = True 'включаем End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
