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

Вход

Регистрация

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

 

= Мир MS Excel/поиск и замена по списку (несколько значений в одной ячейке) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск и замена по списку (несколько значений в одной ячейке) (Макросы/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
 
Ответить
СообщениеЕсть таблица, в ней столбик с «Маршрутом», маршрут имеет вид LIPZ - UKBB – LIPZ или LTBE – UKBB (код ICAO), коды могут меняться. В книге будет специальный лист («ICAO»), где в столбце А записаны коды ICAO, которые необходимо заменить, а в столбце В – соответствующие этим кодам аэропорты, на которые эти коды нужно заменить (данные будут дополняться).

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

Автор - kotena
Дата добавления - 06.11.2018 в 00:39
китин Дата: Вторник, 06.11.2018, 07:20 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

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


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеkotena, дайте теме более конкретное название. " найти и заменить" слишком расплывчато

Автор - китин
Дата добавления - 06.11.2018 в 07:20
boa Дата: Вторник, 06.11.2018, 11:05 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

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

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




Сообщение отредактировал boa - Вторник, 06.11.2018, 11:06
 
Ответить
Сообщениеkotena,
дайте теме более конкретное название

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

Автор - boa
Дата добавления - 06.11.2018 в 11:05
kotena Дата: Вторник, 06.11.2018, 21:51 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 2 ±
Замечаний: 0% ±

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

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

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

Автор - kotena
Дата добавления - 06.11.2018 в 21:51
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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[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]

Автор - RAN
Дата добавления - 06.11.2018 в 22:23
kotena Дата: Вторник, 06.11.2018, 22:58 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
RAN, спасибо)
 
Ответить
СообщениеRAN, спасибо)

Автор - kotena
Дата добавления - 06.11.2018 в 22:58
boa Дата: Вторник, 06.11.2018, 23:27 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
ключевая фраза, здесь "что-то"

ключевая фраза здесь "вам же" ;)


 
Ответить
Сообщение
ключевая фраза, здесь "что-то"

ключевая фраза здесь "вам же" ;)

Автор - boa
Дата добавления - 06.11.2018 в 23:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск и замена по списку (несколько значений в одной ячейке) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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