Выбор уникальных значений

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

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

Выбор уникальных значений (Макросы/Sub)

rtv206

Дата: Вторник, 30.03.2021, 13:36 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Помогите с написанием макроса6
Необходимо что бы макрос находил уникальные значения на Лист1 в колонке А
и переносил их в колонку А на Лист2 без повторов.

К сообщению приложен файл: __Microsoft_Exc.xlsx (9.0 Kb)

Ответить

Nic70y

Дата: Вторник, 30.03.2021, 14:46 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

есть стандартное средство Удалить дубликаты
и есть макрорекордер,
в сумме получаем:
[vba]

Код

Sub u_1491()
    Application.ScreenUpdating = False
    Sheets(2).Range("a1:a" & Sheets(2).Cells(Rows.Count, "a").End(xlUp).Row).Clear
    aa = Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row
    Sheets(2).Range("a1:a" & aa) = Sheets(1).Range("a1:a" & aa).Value
    Sheets(2).Range("a1:a" & aa).RemoveDuplicates Columns:=1, Header:=xlNo
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: _Microsoft_Exc.xlsm (18.4 Kb)

ЮMoney 41001841029809

Ответить

Kuzmich

Дата: Вторник, 30.03.2021, 14:56 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Запускать при активном листе Лист1
[vba]

Код

Sub BoltUnique()
  With Sheets("Лист2")
    Range("A1").Copy .Range("A1")
    Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
         CopyToRange:=.Range("A1"), Unique:=True
  End With
End Sub

[/vba]