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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор уникальных значений - Мир MS Excel

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

Excel 2013
Добрый день!
Помогите с написанием макроса6
Необходимо что бы макрос находил уникальные значения на Лист1 в колонке А
и переносил их в колонку А на Лист2 без повторов.
К сообщению приложен файл: __Microsoft_Exc.xlsx(9.0 Kb)
 
Ответить
СообщениеДобрый день!
Помогите с написанием макроса6
Необходимо что бы макрос находил уникальные значения на Лист1 в колонке А
и переносил их в колонку А на Лист2 без повторов.

Автор - rtv206
Дата добавления - 30.03.2021 в 13:36
Nic70y Дата: Вторник, 30.03.2021, 14:46 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6850
Репутация: 1572 ±
Замечаний: 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
 
Ответить
Сообщениеесть стандартное средство Удалить дубликаты
и есть макрорекордер,
в сумме получаем:
[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]

Автор - Nic70y
Дата добавления - 30.03.2021 в 14:46
Kuzmich Дата: Вторник, 30.03.2021, 14:56 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 596
Репутация: 126 ±
Замечаний: 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]
 
Ответить
СообщениеЗапускать при активном листе Лист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]

Автор - Kuzmich
Дата добавления - 30.03.2021 в 14:56
rtv206 Дата: Вторник, 30.03.2021, 15:48 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, Спасибо. Буду тестировать.
 
Ответить
СообщениеNic70y, Спасибо. Буду тестировать.

Автор - rtv206
Дата добавления - 30.03.2021 в 15:48
rtv206 Дата: Вторник, 30.03.2021, 15:48 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, Благодарю за помощь. Буду тестировать макрос.
 
Ответить
СообщениеKuzmich, Благодарю за помощь. Буду тестировать макрос.

Автор - rtv206
Дата добавления - 30.03.2021 в 15:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор уникальных значений (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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