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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » копирование столбцов и удаление дубликатов (Макросы/Sub)
копирование столбцов и удаление дубликатов
Zeerax Дата: Среда, 17.02.2021, 18:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Привет!

Помогите с кодом макроса, пожалуйста. Раньше работал отлаженно, сегодня сломался. При этом я ничего в нем не менял.

Макрос максимально простой: у меня книга с несколькими листами.
Я беру столбцы с первого листа в книге и переношу на другой существующий лист по его названию. Потом на этом другом листе я удаляю дубликаты по 3 столбцам одновременно.

Жалуется он, как я понимаю, на метод Select(1)
Пробовал перед каждым копированием делать Sheets(1).Activate -в этом случае жалуется на object required.

Код который работал раньше:

[vba]
Код
Sub Macros()

If AutoFilterMode = True Then Cells.AutoFilter
If Not AutoFilter Is Nothing Then ActiveSheet.Cells.AutoFilter

Sheets(1).Range("F:F").Copy Sheets("Другой лист").Range("A:A")
Sheets(1).Range("P:P").Copy Sheets("Другой лист").Range("B:B")
Sheets(1).Range("Q:Q").Copy Sheets("Другой лист").Range("C:C")
Sheets("Другой лист").Range("A:C").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

End Sub
[/vba]


Сообщение отредактировал Zeerax - Среда, 17.02.2021, 18:40
 
Ответить
СообщениеПривет!

Помогите с кодом макроса, пожалуйста. Раньше работал отлаженно, сегодня сломался. При этом я ничего в нем не менял.

Макрос максимально простой: у меня книга с несколькими листами.
Я беру столбцы с первого листа в книге и переношу на другой существующий лист по его названию. Потом на этом другом листе я удаляю дубликаты по 3 столбцам одновременно.

Жалуется он, как я понимаю, на метод Select(1)
Пробовал перед каждым копированием делать Sheets(1).Activate -в этом случае жалуется на object required.

Код который работал раньше:

[vba]
Код
Sub Macros()

If AutoFilterMode = True Then Cells.AutoFilter
If Not AutoFilter Is Nothing Then ActiveSheet.Cells.AutoFilter

Sheets(1).Range("F:F").Copy Sheets("Другой лист").Range("A:A")
Sheets(1).Range("P:P").Copy Sheets("Другой лист").Range("B:B")
Sheets(1).Range("Q:Q").Copy Sheets("Другой лист").Range("C:C")
Sheets("Другой лист").Range("A:C").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

End Sub
[/vba]

Автор - Zeerax
Дата добавления - 17.02.2021 в 18:28
Pelena Дата: Среда, 17.02.2021, 19:04 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17563
Репутация: 3910 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
А каком модуле находится макрос?
Приложите пример файла, в котором возникает ошибка


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеА каком модуле находится макрос?
Приложите пример файла, в котором возникает ошибка

Автор - Pelena
Дата добавления - 17.02.2021 в 19:04
Zeerax Дата: Четверг, 18.02.2021, 14:05 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Прилагаю
К сообщению приложен файл: 1111.xlsm(14.2 Kb)
 
Ответить
СообщениеПрилагаю

Автор - Zeerax
Дата добавления - 18.02.2021 в 14:05
Pelena Дата: Четверг, 18.02.2021, 14:17 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 17563
Репутация: 3910 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так проверьте
К сообщению приложен файл: 1111-1-.xlsm(15.8 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак проверьте

Автор - Pelena
Дата добавления - 18.02.2021 в 14:17
Zeerax Дата: Четверг, 18.02.2021, 14:43 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Спасибо большое!
Ваш исправленный файл помог мне разобраться!
 
Ответить
СообщениеPelena, Спасибо большое!
Ваш исправленный файл помог мне разобраться!

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

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