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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск и замена по списку в ячейках напротив - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Поиск и замена по списку в ячейках напротив
Ikurudzz Дата: Вторник, 18.06.2024, 15:42 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Здраствуйте.
В ячейке С1 нужно найти текст из ячейки А1 и заменить текстом из ячейки B1, для С2 искать текст из А2 из заменять текстом из B2 и т.д.
Подскажите, пожайлуста, решение данной задачки.
К сообщению приложен файл: 5073112.xlsx (9.6 Kb)
 
Ответить
СообщениеЗдраствуйте.
В ячейке С1 нужно найти текст из ячейки А1 и заменить текстом из ячейки B1, для С2 искать текст из А2 из заменять текстом из B2 и т.д.
Подскажите, пожайлуста, решение данной задачки.

Автор - Ikurudzz
Дата добавления - 18.06.2024 в 15:42
Nic70y Дата: Вторник, 18.06.2024, 16:07 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8857
Репутация: 2308 ±
Замечаний: 0% ±

Excel 2010

кривовато получилось,
выровняю:
[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]
К сообщению приложен файл: 22.xlsm (18.0 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 19.06.2024, 08:49
 
Ответить
Сообщение

кривовато получилось,
выровняю:
[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]

Автор - Nic70y
Дата добавления - 18.06.2024 в 16:07
i691198 Дата: Вторник, 18.06.2024, 19:30 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 239
Репутация: 88 ±
Замечаний: 0% ±

Можно сделать формулой
Код
=ЗАМЕНИТЬ(D2;НАЙТИ(A2;D2);ДЛСТР(A2);B2)
 
Ответить
СообщениеМожно сделать формулой
Код
=ЗАМЕНИТЬ(D2;НАЙТИ(A2;D2);ДЛСТР(A2);B2)

Автор - i691198
Дата добавления - 18.06.2024 в 19:30
Ikurudzz Дата: Среда, 19.06.2024, 13:51 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Nic70y, то что надо! Со всеми заменами справилось на ура. Спасибо!
 
Ответить
СообщениеNic70y, то что надо! Со всеми заменами справилось на ура. Спасибо!

Автор - Ikurudzz
Дата добавления - 19.06.2024 в 13:51
  • Страница 1 из 1
  • 1
Поиск:

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