Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Как можно выбрать данные по аналогии Distinct (SQL) / 4 сообщений из 4, страница 1 из 1
20.04.2005, 11:59:39
    #33024855
Sigizmund-8
Sigizmund-8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
Рибятки, подскажите!
Есть таблица (прикреплена картинка)
Есть макрос, который выбирает 20 записей по категориям (на картинке только одна категория, не полная) по макс рейтингу и копирует их в другую книгу в sheet2. Сортировка по убыванию рейтинга уже проведена.
Код привожу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
Dim Cat As String
Cat = Range("A1").Text
    BeginCat =  1 
    BeginPaste =  8 
    k =  1 
    While k <= i + J -  8 
        If Range("A" & k).Text <> Cat And k < BeginCat +  19  Then
            Range("A" & BeginCat & ":J" & k).Select
            Selection.Copy
            Worksheets("Sheet2").Activate
            Range("B" & BeginPaste).Select
            ActiveSheet.Paste
            
            BeginCat = k +  1 
            BeginPaste = BeginPaste +  23 
            Worksheets( 1 ).Activate
        ElseIf k = BeginCat +  19  Then
            Range("A" & BeginCat & ":J" & k).Select
            Selection.Copy
            Worksheets("sheet2").Activate
            Range("B" & BeginPaste).Select
            ActiveSheet.Paste
            
            BeginPaste = BeginPaste +  23 
            Worksheets( 1 ).Activate
        ElseIf Range("A" & k).Text <> Cat Then
            Cat = Range("A" & k).Text
            BeginCat = k
            
            Worksheets("sheet2").Activate
            Range("A" & BeginPaste -  24  & ":K" & BeginPaste -  3 ).Select
            Selection.Copy
            Range("A" & BeginPaste -  1 ).Select
            ActiveSheet.Paste
            
            Worksheets( 1 ).Activate
        End If
        k = k +  1 
    Wend

Вопрос в том, как можно выбрать программы с максимальным рейтингом, где не встречаются программы с одинаковым названием, например, в данном примере, программа "местное время" встречается часто, но нужна только одна запись с этой программой, где макс. рейтинг?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2005, 12:00:56
    #33024862
Sigizmund-8
Sigizmund-8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2005, 12:04:34
    #33024879
н0ль
н0ль
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
когда у меня была похожая проблема, использовал коллекции
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2005, 12:16:04
    #33024921
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
а почему бы не использовать ADO и SQL запрос с 'Distinct'?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Как можно выбрать данные по аналогии Distinct (SQL) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 515ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2186114]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 190ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 233ms
total:  515ms
x
x
Закрыть


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