あるExcelシートから別のExcelシートに個別の値をコピーするマクロ

Question

「メイン」と「カウント」というシートがあるExcelブックがあります。「メイン」シートには、IDのリストを含む列Bがあります。

「カウント」ページにマクロを設定して、メインシートの列Bから列Aのすべての個別の値をコピーすることはできますか？

インデックス機能と高度なフィルターが機能することはわかっていますが、特に単純なマクロが必要です。

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