Get Dynamic Extraction from Column B to Column G

[abuharvey]

Dear Genius ........


I'm Enter the bunch of names (long list ) in Column B that will be Repeated names, What i want in Column G i
need to get unique names to be displayed without repeating .... Dynamically and Automatically


Thanks in advance

 

[00jaggy]

I used the Macro recorder to copy and paste to column G, then used the Remove Duplicates function in Excel. I then cleaned up the code just a bit. So probably not the most efficient way to do this, but it works!

Sub Macro3()


    Columns("B:B").Copy
    Columns("G:G").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$G:$G").RemoveDuplicates Columns:=1, Header:=xlYes
    
End Sub

 

[vcoolio]

Hello Abuharvey,

Further to 00jaggy's post, using AdvancedFilter can reduce the process to one line of code as follows:-

Sub Uniques()

Range("B2", Range("B" & Rows.Count).End(xlUp)).AdvancedFilter 2, , [G2], True

End Sub

This code assumes that you already have headings in B1 and G1.

Alternatively you can use the inbuilt AdvancedFilter function.

I hope that this helps.

Cheerio,
vcoolio.