Makro untuk menyalin nilai berbeda dari satu lembar Excel ke yang lain

0

Saya memiliki buku kerja Excel yang memiliki sheet berikut, "Utama" dan "Hitung": Sekarang lembar "Utama" memiliki kolom B dengan daftar ID.

Apakah mungkin untuk memiliki makro di halaman "Hitung" untuk menyalin semua nilai yang berbeda di kolom A dari kolom B di Lembar Utama?

Saya tahu fungsi Indeks dan filter Lanjutan akan berfungsi, tetapi saya secara khusus membutuhkan makro sederhana.

ATUL PRASAD
sumber

Jawaban:

3

Coba ini:

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
Siswa Gary
sumber