Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Расширенный фильтр 
V
    Опции темы
ProgramerForever
Дата 20.12.2010, 07:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: нет
Всего: 5
Добрый день. Есть примерно такие данные (начиная с A1):
Код

Дата\Время    Наименование    Баланс    Категория
20.12.2010 10:07:14    123    -500    Коммунальные услуги. Газ
20.12.2010 10:07:14    123    -500    Коммунальные услуги. Газ
20.12.2010 10:07:14    123    -500    Коммунальные услуги. Газ
20.12.2010 10:07:14    123    -500    Коммунальные услуги. Газ
20.12.2010 10:07:15    123    -500    Коммунальные услуги. Газ
20.12.2010 10:07:15    123    -500    Коммунальные услуги. Газ
20.12.2010 10:07:15    123    -500    Коммунальные услуги. Газ
20.12.2010 10:07:26    123    -200    Коммунальные услуги. Радио
20.12.2010 10:07:26    123    -200    Коммунальные услуги. Радио
20.12.2010 10:07:27    123    -200    Коммунальные услуги. Радио
20.12.2010 10:07:33    123    -207    Проживание. Табачные изделия
20.12.2010 10:07:33    123    -207    Проживание. Табачные изделия
20.12.2010 10:07:33    123    -207    Проживание. Табачные изделия
20.12.2010 10:07:34    123    -207    Проживание. Табачные изделия


Для выборки уникальных полей делаю такой код:
Код

Range("D2:D65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F2"), Unique:=True


Получается так:
Код

Коммунальные услуги. Газ
Коммунальные услуги. Газ
Коммунальные услуги. Радио
Проживание. Табачные изделия

Т.е. два поля дублируются. Притом всегда первые. Что не так?
PM MAIL WWW ICQ   Вверх
Akina
Дата 20.12.2010, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Цитата(ProgramerForever @  20.12.2010,  08:58 Найти цитируемый пост)
 Что не так? 

Что угодно... лишний пробел на конце, латинская "о" вместо русской и т.п.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ProgramerForever
Дата 20.12.2010, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: нет
Всего: 5
Нет. Столбец заполнялся программно. Да и простой копипастой пробовал. Всё одно. Но вообще-то именно так эта функция и вызывается?
PM MAIL WWW ICQ   Вверх
Akina
Дата 20.12.2010, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Тьфу! я-то сразу не понял... Первая строка должна содержать заголовки столбцов! она копируется безусловно. А ты заголовки не захватываешь.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ProgramerForever
Дата 21.12.2010, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: нет
Всего: 5
Всё, понял. Спасибо.
Какой параметр следует использовать, чтобы НЕ копировать заголовки?
PM MAIL WWW ICQ   Вверх
Akina
Дата 21.12.2010, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Такого, по-моему, просто нет. Потому как изначально AdvancedFilter предназначен для работы с именованными диапазонами... а посему by design и просто выбирай диапазон, ВКЛЮЧАЯ заголовок столбца, и получая на месте назначения список с заголовком.
Код

Range("D1:D65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1"), Unique:=True




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ProgramerForever
Дата 21.12.2010, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: нет
Всего: 5
Да, я сам посмотрел в MSDN. Действительно ничего не сказано про это. Вопрос решён. Спасибо. ++
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1409 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.