ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Как можно выбрать данные по аналогии Distinct (SQL)
4 сообщений из 4, страница 1 из 1
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
    #33024855
Sigizmund-8
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sigizmund-8
Гость
Рибятки, подскажите!
Есть таблица (прикреплена картинка)
Есть макрос, который выбирает 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, 11:59
| Ответить | Цитировать | Написать  
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
    #33024862
Sigizmund-8
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sigizmund-8
Гость
...
Рейтинг: 0 / 0
20.04.2005, 12:00
| Ответить | Цитировать | Написать  
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
    #33024879
н0ль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
н0ль
Гость
когда у меня была похожая проблема, использовал коллекции
...
Рейтинг: 0 / 0
20.04.2005, 12:04
| Ответить | Цитировать | Написать  
Excel. Как можно выбрать данные по аналогии Distinct (SQL)
    #33024921
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
а почему бы не использовать ADO и SQL запрос с 'Distinct'?
...
Рейтинг: 0 / 0
20.04.2005, 12:16
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Как можно выбрать данные по аналогии Distinct (SQL)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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