How to delete duplicate values from multiple columns in a spreadsheet

Question

I am stuck with something and need your help. I have a spreadsheet with 6326 Columns and 50 Rows. What I want to do is to remove duplicate from each column and calculate the number of unique elements and tally with other columns

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("G:G").Select
    ActiveSheet.Range("$G$1:$G$50").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("G1").Select
End Sub

L42 · Accepted Answer · 2015-05-25 06:43:49Z

1

You can try looping through your entire range if your columns are contiguous.

With Sheets("SheetName")
    For i = 0 To 6325
        .Range("G1:G50").Offset(0, i).RemoveDuplicates Columns:=1, Header:=xlNo
    Next
End With

Suppress screen updating cause this will take a while and is costly in terms of speed.

answered May 25, 2015 at 6:43

L42

19.8k11 gold badges47 silver badges70 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to delete duplicate values from multiple columns in a spreadsheet

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related