ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / уникальный список
5 сообщений из 5, страница 1 из 1
уникальный список
    #35890469
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Господа!
может кто-нить делал процедуру составления уникального списка и двух диапазонов excel?
что выбрать: advanced filter или перебор циклом?
...
Рейтинг: 0 / 0
25.03.2009, 12:49
| Ответить | Цитировать | Написать  
уникальный список
    #35890761
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
by-pass
Участник
при большом количестве данных перебор будет сильно тормозить
лучше использовать встроенные в эксель средства фильтрации
...
Рейтинг: 0 / 0
25.03.2009, 14:02
| Ответить | Цитировать | Написать  
уникальный список
    #35891099
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
если я применяю расширенный фильтр, а потом обращаюсь к полученному диапазону, то формула выглядит =ИЗВЛЕЧЬ... почему? как с этим бороться?
...
Рейтинг: 0 / 0
25.03.2009, 15:18
| Ответить | Цитировать | Написать  
уникальный список
    #35898584
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
by-passпри большом количестве данных перебор будет сильно тормозитьМда, теперь я в этом убедился... И не просто тормозит, а ещё и зависает, если диапазон здоровый!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub UnicCells()
nd1 = Sheets("ид").Range("$a$6").End(xlDown).Row
'у меня в примере все данные с 6 строки
s =  6 
For I =  6  To nd1
    counts =  0 
    For J =  6  To I
        If Sheets("ид").Cells(I,  2 ) = Sheets("ид").Cells(J,  2 ) Then
            counts = counts +  1 
        End If
    Next J
        If counts =  1  Then
            Sheets("СП").Cells(s,  2 ) = Sheets("ид").Cells(I,  2 )
            s = s +  1 
        End If
Next I
End Sub
Почему AdvancedFilter такой быстрый? Как ещё искать уникальные записи, кроме проверки всего диапазона каждый раз? Очевидно же, что AdvancedFilter поступает иначе
...
Рейтинг: 0 / 0
29.03.2009, 03:53
| Ответить | Цитировать | Написать  
уникальный список
    #35901643
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Через обычный SELECT DISTINCT
...
Рейтинг: 0 / 0
30.03.2009, 22:38
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / уникальный список
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2161195]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 24ms
get topic data:
 7ms
get first new msg:
 6ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 231ms
total:  334ms
созд. / загр.: 334ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]