|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.09.2010, 11:51 | #21 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Обрубил массив Range([H2], Cells(d.Count + 1, 10)).Value = arr2 - стало быстрее:
nilem 0.71875 сек. hugo 0.34375 сек. sas888 0.5 сек. nilem 0.703125 сек. hugo 0.359375 сек. sas888 0.5 сек. nilem 0.7226563 сек. hugo 0.3398438 сек. sas888 0.5 сек. nilem 0.7070313 сек. hugo 0.359375 сек. sas888 0.5 сек.
webmoney: E265281470651 Z422237915069 R418926282008
|
08.09.2010, 11:57 | #22 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Убрал сортировку - стало быстрее: 0,36 сек.
Чем шире угол зрения, тем он тупее.
|
08.09.2010, 12:44 | #23 |
Регистрация: 07.09.2010
Сообщений: 5
|
Отлично, ребят!!!!! Все работает... пока что проверил только на 120 тыс... думал около 4 секунд. Но это не столь важно!
Я вам очень и очень благодарен!!!!!!!!!!!!!!!!!!!!!!!!! !! будете в питере, с меня чашка горячего шоколада) Одно только.... он не считает книги без автора.... вот это не айс. много книг, типа библия, а там автора нет.. Последний раз редактировалось Nicotinni; 08.09.2010 в 12:57. |
08.09.2010, 12:59 | #24 |
Регистрация: 07.09.2010
Сообщений: 5
|
похрен. сделал заполнение на все -"Неизв.". обойдутся.
|
08.09.2010, 13:03 | #25 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Мой код считает, пока не отсортировано другими кодами . А после сортировки - считает, если в коде заменить строку на
Set rng = Range("A2:C" & Cells(Rows.Count, 2).End(xlUp).Row)
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 08.09.2010 в 13:09. |
08.09.2010, 13:20 | #26 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Аналогично. Замените в коде строку на
Set y = Range("A2:C" & Cells(Rows.Count, 2).End(xlUp).Row)
Чем шире угол зрения, тем он тупее.
|
08.09.2010, 13:23 | #27 |
Регистрация: 07.09.2010
Сообщений: 5
|
Ну все. Радости моей нет предела... правда чувствую себя теперь инвалидом... сам бы никогда до такого не догадался)
|
26.04.2011, 15:23 | #28 |
Регистрация: 01.10.2009
Сообщений: 5
|
Привет всем! Только что недавно делал подобное, но задача немного универсальней:
Из диапазона A1:B2 или C3:XFD1048576 (указываем сами) выбирае одинаковые строки суммируя их колличество, тоесть у нас есть: 'Яблоко' 'красное' 'сладкое' 'Груша ' ' ' ' ' 'Яблоко' 'красное' ' ' 'Тыква ' 'большая' ' ' 'Яблоко' 'красное' 'сладкое' Получаем: 'Яблоко' 'красное' 'сладкое' '2' 'Груша ' ' ' ' ' '1' 'Яблоко' 'красное' ' ' '1' 'Тыква ' 'большая' ' ' '1' А вот и код: Код:
|
26.04.2011, 16:57 | #29 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Пора Вам Dictionary осваивать.
Вот близкий по смыслу код - Код:
Ну или дописать это в код - брать как критерий 3 столбца, считать повторы, а не суммировать суммы. Хотя код можно чуть сократить, если уж придираться... P.S. Можно столбцы слить через "|", потом результат разбить по колонкам по этому разделителю.
webmoney: E265281470651 Z422237915069 R418926282008
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объединение 2-х одинаковых баз данных | AlexeiDelejov | БД в Delphi | 6 | 24.06.2010 17:55 |
Поиск данных в нескольких таблицах | a_n_n_a | БД в Delphi | 10 | 23.04.2010 11:33 |
Подсчет числа одинаковых слов в нескольких категориях. | Hagen83 | Microsoft Office Excel | 2 | 13.03.2010 09:45 |
Найти совпадения данных в 2ух таблицах.?? | fifty50 | Microsoft Office Excel | 14 | 24.02.2010 17:46 |
Величина изменения данных текущей даты от предыдущей в сводных таблицах. | Strelec79 | Microsoft Office Excel | 0 | 05.08.2009 19:20 |