поиск и замена по списку (несколько значений в одной ячейке)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

поиск и замена по списку (несколько значений в одной ячейке) (Макросы/Sub)

kotena

Дата: Вторник, 06.11.2018, 00:39 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 2 ±

Замечаний: 0% ±

Excel 2016

Есть таблица, в ней столбик с «Маршрутом», маршрут имеет вид LIPZ - UKBB – LIPZ или LTBE – UKBB (код ICAO), коды могут меняться. В книге будет специальный лист («ICAO»), где в столбце А записаны коды ICAO, которые необходимо заменить, а в столбце В – соответствующие этим кодам аэропорты, на которые эти коды нужно заменить (данные будут дополняться).

Необходим код, который исключительно в выделенных на любом листе ячейках заменит LIPZ - UKBB – LIPZ на Marco Polo – Boryspil - Marco Polo или LTBE – UKBB на Bursa Airport – Boryspil. Также, нужно учесть, что пробелов между дефисом и самим кодом может и не быть, а могут быть в разных местах… Данные должны браться только из листа «ICAO». Файл прилагается.
Буду благодарна любой помощи.

К сообщению приложен файл: example.xlsx (19.0 Kb)

Сообщение отредактировал kotena - Вторник, 06.11.2018, 13:14

Ответить

китин

Дата: Вторник, 06.11.2018, 07:20 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

kotena, дайте теме более конкретное название. " найти и заменить" слишком расплывчато

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

boa

Дата: Вторник, 06.11.2018, 11:05 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

kotena,

Цитата китин, 06.11.2018 в 07:20, в сообщении № 2 ()

дайте теме более конкретное название

Осмысленное название темы позволит вам же найти что-то подходящее на просторах интернета.
Попробуйте, например, спросить у дядюшки Гугла: "Excel поиск и замена значений по списку".
и помните, "Правильно поставленный вопрос - это половина ответа."
[offtop]Заблудились два грибника. Еле передвигая ноги, вышли они на опушку.
А там прапорщик стоит. Они его спрашивают:
— Товарищ военный, мы на станцию правильно идем?
— Да какое там правильно? Голеностоп вихляет, удар стопы не четкий, да и вообще не в ногу…[/offtop]

Сообщение отредактировал boa - Вторник, 06.11.2018, 11:06

Ответить

kotena

Дата: Вторник, 06.11.2018, 21:51 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 2 ±

Замечаний: 0% ±

Excel 2016

boa,

Цитата boa, 06.11.2018 в 11:05, в сообщении № 3 ()

найти что-то подходящее на просторах интернета

ключевая фраза, здесь "что-то" и все ответы очень расплывчаты, у меня более конкретный вопрос -.-

Ответить

RAN

Дата: Вторник, 06.11.2018, 22:23 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub мяу()
    Dim lr&, i&
    lr = Sheets("ICAO").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lr
        Sheets(1).Columns("A").Replace What:=Sheets("ICAO").Cells(i, 1).Value, Replacement:=Sheets("ICAO").Cells(i, 2).Value, LookAt:=xlPart
    Next
    Sheets(1).Columns("A").Replace What:=" ", Replacement:="", LookAt:=xlPart
    Sheets(1).Columns("A").Replace What:="-", Replacement:=" - ", LookAt:=xlPart
End Sub

[/vba]