ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление повторов в заданном диапазоне. Прошу не бить...
3 сообщений из 3, страница 1 из 1
Удаление повторов в заданном диапазоне. Прошу не бить...
    #35795054
Gamber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gamber
Гость
Доброго времени суток...
Помогите пожалуйста решить следующую задачку...

Есть логи удаленных атак с IP-адресами...

Файл в Excel выглядит следующим образом:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
A1

 192 . 168 . 1 . 2 
 192 . 168 . 1 . 3 
 192 . 168 . 1 . 5 
 192 . 168 . 1 . 2 
 192 . 168 . 1 . 3 
 192 . 168 . 1 . 3 
...

Задача удалить повторы и возможные пустые ячейки если таковые появятся в процессе...

Погуглил, нашел следующие варианты:

1. Данные -> Фильтр -> Расширенный фильтр -> Только уникальные записи

2. [quote]
Если в B2:B25 исходный список то

В B26 заносим пустую строку = "", это то что будет показываться для встречающихся повторно элементов.
Выделяем диапазон С2:С25, переходим в строку формул и набираем:
=ИНДЕКС(B2:B26;НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ(B2:B25;B2:B25;0)=СТРОКА(B2:B25)-1;СТРОКА(B2:B25)-1;ЧСТРОК(B2:B25)+1);СТРОКА(B2:B26)-1);1;1)
жмём ctrl-shift-enter
получаем сверху список элементов без повтора, оставшиеся ячейки диапазона С2:С25 заполнены тем что в B26 - пустой строкой
[/quote]

Хотелось бы решить задачу с помощью макроса, все найденный варианты работают только с соседними повторами, т.е. в моем случае не подходят...

Если не затруднит набросайте скриптик способный решить задачу...

Буду очень признателен...
...
Рейтинг: 0 / 0
03.02.2009, 21:34:06
| Ответить | Цитировать | Написать  
Удаление повторов в заданном диапазоне. Прошу не бить...
    #35795288
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SirFisher
Гость
Gamber,
данные в поле A. Поле A подписано как "ip". Положение курсора не важно.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Sort()
    
    Range("B1, C1") = "ip" 'подпись столбца должна быть такой же, как и подпись столбца с данными
    Range("B2") = "<>"
    Columns("A:A").AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("B1:B2"), CopyToRange:=Columns("C:C"), Unique:=True

End Sub
...
Рейтинг: 0 / 0
04.02.2009, 04:43:05
| Ответить | Цитировать | Написать  
Удаление повторов в заданном диапазоне. Прошу не бить...
    #35800025
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
СПОСОБЫ:
1.Данные -> Фильтр -> Расширенный фильтр -> Только уникальные записи
Не уверен, что это работает только с соседними повторами... Вы отсортировали бы сначала...
2.Макросом
3.Сводную таблицу, наконец.
4.В Access нет такой проблемы
...
Рейтинг: 0 / 0
05.02.2009, 17:53:15
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление повторов в заданном диапазоне. Прошу не бить...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2179840]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 176ms
get topic data:
 10ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 208ms
total:  486ms
созд. / загр.: 486ms
x
x
Закрыть


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