Скопируйте уникальный список в любое место

Question

Здесь очень много решений, которые очень близки, но все, что я могу найти, имеет уникальный список, направляющийся в заранее установленное место.

Пример данных

животных
Собака
Собака
Cat
Duck
гусь
Duck
Cat
Duck

Я хочу, чтобы иметь возможность захватить этот список (колонка заголовок включен) со стандартным Ctrl + C, go в другое место, запустить макрос и иметь его вставить уникальный список в пределах требуемого поэтому я хотел бы получить:

животное
Собака
Cat
Duck
гусь

Пробовал с помощью записи макросов и разбор релевантных частей, но без кубиков, а в коде генерируются ссылки для конкретных ячеек, которые я слишком разбираюсь в noob, чтобы выяснить, как их заменить. Я хочу, чтобы это работало динамически независимо от местоположения на любом листе, например, команды «вставить уникальную» с тем, что я уже выбрал.

Чтобы уточнить, было бы здорово, если бы я мог вставить уже не дублируемый список в текущее местоположение. Основная идея заключалась бы в том, чтобы захватить столбец из 400 строк данных, вставить уникальный список его значений в другое место и затем начать создавать сводные таблицы (подсчеты, суммы и т. Д.) С использованием этого списка.

Также я использую Excel 2010.

Добавление кода макросов записанных ниже:

Sub Macro6() 
' Macro6 Macro 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 
    Range("A2").Select 
    Selection.End(xlDown).Select 
    Range("A438").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    ActiveSheet.Range("$A$438:$A$866").RemoveDuplicates Columns:=1, Header:= _ 
     xlYes 
End Sub 

Answer 1

Я хочу, чтобы иметь возможность захватить этот список (заголовок колонки в комплекте) с стандартом Ctrl + C, перейдите в другое место, запустить макрос и он вставить уникальный список в диапазон требуется

Я предполагаю, что это специальный макрос для вставки должны делать то, что вы хотите, если предположить, что данные на одной колонке:

Sub PasteAndRemoveDuplicates() 
    Selection.Parent.Paste 
    Selection.RemoveDuplicates 1 
End Sub 

Answer 2

Вот процедура VBA для этого.

Поместите рутину в стандартный модуль кода.

Sub Crazy() 
    With Selection.CurrentRegion 
     If .Count > 1 Then 
      .RemoveDuplicates 1 
     End If 
    End With 
End Sub 

Теперь ...

Скопируйте список животных и вставить его там, где вам нравится.

Выберите хотя бы одну из ячеек в списке.

Запустите сумасшедшую процедуру из диалога макросов (Control-F8).

Все.