копирование столбцов и удаление дубликатов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

копирование столбцов и удаление дубликатов (Макросы/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]