Макрос для копирования отдельных значений из одного листа Excel в другой

Question

У меня есть книга Excel, в которой есть следующие листы:"Основной" и "Счет":теперь на "Основном" листе есть столбец B со списком идентификаторов.

Можно ли иметь макрос на странице "Количество" для копирования всех отдельных значений в столбце A из столбца B в главном листе?

Я знаю, что функция Index и расширенный фильтр будут работать, но мне нужен простой макрос.

Answer 1

Попробуй это:

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub