|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.03.2010, 18:31 | #1 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Удаление одинаковых строк на листе Excel 2003
Прошу отредактировать код макроса для поиска и удаления одинаковых строк на всех листах книги:
Код:
для поиска и удаления одинаковых строк(оставить только одну) только на одном выбранном листе, столбцы для поиска с 1 по 6 , строки для поиска с 8 до 500 и без MsgBox.Совпадение должно быть точное по всем ячейкам строки . Файл прикреплён. Валерий. Последний раз редактировалось vfv; 03.03.2010 в 22:19. |
04.03.2010, 04:59 | #2 | ||
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Вам нужен
Цитата:
Цитата:
Чем шире угол зрения, тем он тупее.
|
||
04.03.2010, 07:46 | #3 | |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Цитата:
Этот же макрос ищет и удаляет одинаковые по всем листам книги. |
|
04.03.2010, 09:10 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Для решения подобных задач, лучше не работать непосредственно с ячейками рабочего листа. Это очень долго. Работа с массивами существенно быстрее. Да и перебирать для сравнения можно не каждую ячейку (элемент массива), а целиком строки.
Для примера, предлагаю макрос для удаления повторяющихся строк в выбранном диапазоне для одного (активного) листа: Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 04.03.2010 в 09:15. |
04.03.2010, 09:13 | #5 | |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Цитата:
|
|
04.03.2010, 09:38 | #6 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
|
04.03.2010, 09:47 | #7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Код:
Код:
Чем шире угол зрения, тем он тупее.
|
04.03.2010, 10:08 | #8 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Всё работает!
Однако в самом начале я не сказал,что одинаковые строки в одной из ячеек содержат гиперссылку.Она не удаляется,а сдвигается вниз. Также не удаляется цвет границ от удалённых строк,сдвигается вниз. Готовлю сейчас файл примера. |
04.03.2010, 10:27 | #9 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Вот,что получается.
|
04.03.2010, 10:51 | #10 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение.
Чем шире угол зрения, тем он тупее.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск одинаковых строк | Demitriy | Microsoft Office Excel | 45 | 26.07.2010 08:50 |
Перенос строк по двойному клику в Excel 2003 | Riddick | Помощь студентам | 8 | 15.12.2009 16:59 |
удаление одинаковых ссылок | neoman1 | Microsoft Office Word | 6 | 30.11.2009 16:05 |
удаление одинаковых элементов из массива | sauron99 | Общие вопросы Delphi | 6 | 15.04.2009 21:27 |
удаление одинаковых слов (С/С++) | jewel | Помощь студентам | 1 | 12.12.2008 15:14 |