Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/удаление дубликатов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление дубликатов (Макросы/Sub)
удаление дубликатов
Red_Sloth Дата: Понедельник, 20.02.2017, 10:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Всем доброго времени суток!

Появилась задача - удалить дублирующие записи в двух столбцах. При этом необходимо искать именно совпадения в обоих столбцах.
Макрорекодер выдал вот такой код:
[vba]
Код
ActiveSheet.Range("L1:M155000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
[/vba]
Однако он не работает при запуске макроса. Выдает ошибку:"Run time error 5. Invalid procedure call or argument".

Писать отдельный цикл для поиска дублей как то не очень хочется. Можно ли как то поправить то что записал рекодер, чтобы макрос сам мог выполнять этот код?

Заранее спасибо!
 
Ответить
СообщениеВсем доброго времени суток!

Появилась задача - удалить дублирующие записи в двух столбцах. При этом необходимо искать именно совпадения в обоих столбцах.
Макрорекодер выдал вот такой код:
[vba]
Код
ActiveSheet.Range("L1:M155000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
[/vba]
Однако он не работает при запуске макроса. Выдает ошибку:"Run time error 5. Invalid procedure call or argument".

Писать отдельный цикл для поиска дублей как то не очень хочется. Можно ли как то поправить то что записал рекодер, чтобы макрос сам мог выполнять этот код?

Заранее спасибо!
Автор - Red_Sloth
Дата добавления - 20.02.2017 в 10:38
_Boroda_ Дата: Понедельник, 20.02.2017, 10:46 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
У меня Ваш код работает.
Покажите в файле
И полностью код макроса

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ меня Ваш код работает.
Покажите в файле
И полностью код макроса
Автор - _Boroda_
Дата добавления - 20.02.2017 в 10:46
Red_Sloth Дата: Понедельник, 20.02.2017, 11:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, странно..а в другой книге работает..тот файл в котором не работает, к сожалению, не могу отправить
 
Ответить
Сообщение_Boroda_, странно..а в другой книге работает..тот файл в котором не работает, к сожалению, не могу отправить
Автор - Red_Sloth
Дата добавления - 20.02.2017 в 11:10
_Boroda_ Дата: Понедельник, 20.02.2017, 11:35 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Что говорит Майкрософт https://msdn.microsoft.com/en-us/library/aa445484(v=vs.60).aspx

А попробуйте написать до 65000 строк. Тоже ругаться будет?
Файл пересохраните с другим расширением и закройте-откройте его.
Проверьте диапазон на ошибки

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧто говорит Майкрософт https://msdn.microsoft.com/en-us/library/aa445484(v=vs.60).aspx

А попробуйте написать до 65000 строк. Тоже ругаться будет?
Файл пересохраните с другим расширением и закройте-откройте его.
Проверьте диапазон на ошибки
Автор - _Boroda_
Дата добавления - 20.02.2017 в 11:35
Red_Sloth Дата: Понедельник, 20.02.2017, 12:21 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, Выяснил в чем дело!
В начале кода был вот такой кусок [vba]
Код
Option Base 1
[/vba].
Как только его закомментил так все заработало.

Спасибо за советы!
 
Ответить
Сообщение_Boroda_, Выяснил в чем дело!
В начале кода был вот такой кусок [vba]
Код
Option Base 1
[/vba].
Как только его закомментил так все заработало.

Спасибо за советы!
Автор - Red_Sloth
Дата добавления - 20.02.2017 в 12:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление дубликатов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!