Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.09.2009, 09:21   #1
KNatalia
Пользователь
 
Регистрация: 14.08.2009
Сообщений: 66
Восклицание Выборка из списка фамилий определенных фамилий

Добрый день!
Подскажите, пожалуйста.
У меня есть два списка: один список включает больше 2000 ФИО людей, другой около 70 ФИО людей.

Мне необходимо из списка 1 вытащить уникальный номер и ФИО 70 людей, взятых из списка 2 и поместить их в третий лист.

Подскажите, как это сделать макросом, так как число людей в разных списках может меняться и доходить до 10000

Заранее большое спасибо!
Вложения
Тип файла: rar список1и2.rar (85.3 Кб, 28 просмотров)
KNatalia вне форума Ответить с цитированием
Старый 24.09.2009, 12:27   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Так как в списке 2 не было ни одной фамилии.которая совпадала с списком 1,я намерено добавил их в список 1 для проверки макроса
Вложения
Тип файла: rar список1и2.rar (50.4 Кб, 29 просмотров)
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 24.09.2009, 12:53   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите другой вариант. Обратите внимание на время выполнения процедуры.
Вложения
Тип файла: rar список1и2_2.rar (49.7 Кб, 64 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 24.09.2009, 13:01   #4
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Посмотрите другой вариант. Обратите внимание на время выполнения процедуры.

Снимаю шляпу.Вы подсказали мне интересный метод.Хотя Redim
не люблю применять
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 25.09.2009, 11:42   #5
KNatalia
Пользователь
 
Регистрация: 14.08.2009
Сообщений: 66
По умолчанию Спасибо Вам всем огромное!

Спасибо большое!
KNatalia вне форума Ответить с цитированием
Старый 25.09.2009, 13:16   #6
elf80
Пользователь
 
Регистрация: 09.08.2009
Сообщений: 33
По умолчанию

Добрый день! Уважаемый SAS888 в вашем коде некорректно обрабатывается столбец А. Но скорость отличная.
elf80 вне форума Ответить с цитированием
Старый 28.09.2009, 05:31   #7
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
в вашем коде некорректно обрабатывается столбец А.
Прошу прощения. Досадное недоразумение. Замените в коде макроса
Код:
c(k, 1) = Trim(a(i, 1))
на
Код:
c(k, 1) = Trim(a(j, 1))
и будет счастье.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 28.09.2009 в 05:41.
SAS888 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выгрузка определенных ячеек из excel kate158 Общие вопросы Delphi 12 23.09.2009 11:26
Выплывающий календарь в определенных ячейках Neo007 Microsoft Office Excel 1 12.09.2008 12:50
Блокировка в реестре определенных программ Иллидан Безопасность, Шифрование 3 24.07.2008 21:56
отсортировать таблицу сначала в алфавитном порядке фамилий продавцов, затем в порядке возростания получен Lora Microsoft Office Excel 1 31.05.2008 17:22
количество фамилий в списке Гуля Паскаль, Turbo Pascal, PascalABC.NET 8 29.04.2008 13:01