В фале имеется пару десятков "листов" В столбце "А" в каждом листе имеются те или иные Фамилии (Иванов, Петров, Сидоров). Встречаются и даты и пустые строки - их игнорируем. В листе "ИТОГО" в столбце "А" имеются ВСЕ фамилии (Иванов, Петров, Сидоров и другие). В столбце "В" имеются ВСЕ фамилии НО с инициалами.
Задача: найти все фамилии по книге взяв за основу лист "Итого" столбец А, и подставить вместо найденных (во всех листах) фамилий, фамилии с инициалами из "Итого" столбца "В"
Заранее спасибо!
В фале имеется пару десятков "листов" В столбце "А" в каждом листе имеются те или иные Фамилии (Иванов, Петров, Сидоров). Встречаются и даты и пустые строки - их игнорируем. В листе "ИТОГО" в столбце "А" имеются ВСЕ фамилии (Иванов, Петров, Сидоров и другие). В столбце "В" имеются ВСЕ фамилии НО с инициалами.
Задача: найти все фамилии по книге взяв за основу лист "Итого" столбец А, и подставить вместо найденных (во всех листах) фамилий, фамилии с инициалами из "Итого" столбца "В"
Ну, если, действительно, листов всего "пару десятков" и фамилий не на целый телефонный справочник, то можно так: Выделяете все листы в книге, кроме "ИТОГО" - выделяете массив с фамилиями (столбец А) - жмете Ctrl+H - Найти (пишете / копируете-вставляете с листа "Итого" нужную фамилию) - Заменить на (пишете/копируете-вставляете с листа "Итого" эту же фамилию, но с инициалами) - жмете Заменить всё. И так с каждой фамилией.. Замена происходит по всем выделенным листам книги, где есть искомая фамилия. Занимает не так уж много времени, я Вам дольше ответ писал. Ну, или , если не горит, то дождитесь появления спецов по VBA, они более продвинутый вариант предложат.
Ну, если, действительно, листов всего "пару десятков" и фамилий не на целый телефонный справочник, то можно так: Выделяете все листы в книге, кроме "ИТОГО" - выделяете массив с фамилиями (столбец А) - жмете Ctrl+H - Найти (пишете / копируете-вставляете с листа "Итого" нужную фамилию) - Заменить на (пишете/копируете-вставляете с листа "Итого" эту же фамилию, но с инициалами) - жмете Заменить всё. И так с каждой фамилией.. Замена происходит по всем выделенным листам книги, где есть искомая фамилия. Занимает не так уж много времени, я Вам дольше ответ писал. Ну, или , если не горит, то дождитесь появления спецов по VBA, они более продвинутый вариант предложат.Che79
Ну, если, действительно, листов всего "пару десятков" и фамилий не на целый телефонный справочник, то можно так:
Около 20 листов и в общей сложности ВСЕГО неповторяющихся фамилий с инициалами около 500 ( а фамилий, которые в итоге нужно изменить подставив им инициалы по всей книге - более 5000, но важно все же сколько с инициалами и 500 это тоже не мало ). Я начал делать поиском и с заменой на всем листе. но 500 фамилий... ( В любом случае спасибо! Буду ждать от других гуру данного форума более быстрое решение
Ну, если, действительно, листов всего "пару десятков" и фамилий не на целый телефонный справочник, то можно так:
Около 20 листов и в общей сложности ВСЕГО неповторяющихся фамилий с инициалами около 500 ( а фамилий, которые в итоге нужно изменить подставив им инициалы по всей книге - более 5000, но важно все же сколько с инициалами и 500 это тоже не мало ). Я начал делать поиском и с заменой на всем листе. но 500 фамилий... ( В любом случае спасибо! Буду ждать от других гуру данного форума более быстрое решение ComiC
Сообщение отредактировал ComiC - Среда, 11.10.2017, 03:22
а по Вашему примеру этого и не скажешь. Сделайте нормальный пример с сохранением всей структуры и деталей реального файла. Первым делом, гуру Вас попросят именно это, вот увидите...
а по Вашему примеру этого и не скажешь. Сделайте нормальный пример с сохранением всей структуры и деталей реального файла. Первым делом, гуру Вас попросят именно это, вот увидите...Che79