MARCO VBA: Del Duplicate Row if match with 3 Col

[harky]

Del Duplicate Row if Col A, B, C matched

I had thousand row, so possible to use macro?

 

[harky]

I had this code.

How to replace array with A B C, rather than 123 ? So i can change it easily?

Sub RemoveDuplicate()


    'START of confirmation message box'
    response = MsgBox("Start Remove Duplicate?", vbYesNo)
    If response = vbNo Then
    MsgBox ("Macro Canceled!")
    Exit Sub
    End If
    'END of confirmation message box'


        Cells.Select
        ActiveSheet.Range("A:D").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
       


    'START MSG'
      MsgBox "Duplicate Removed!"
      Exit Sub
    'End MSG'


End Sub

 

[DanteAmor]

Why don't you want to use 1,2,3?

It may be so:

[COLOR=#333333] 
     ActiveSheet.Range("A:D").RemoveDuplicates _
          Columns:=[/COLOR]Array(Columns("A").Column, Columns("B").Column, Columns("C").Column)[COLOR=#333333], Header:=xlYes[/COLOR]

 

[harky]

Because i dont know if i can amend myself like 1,2,4 in future?

Why don't you want to use 1,2,3?

It may be so:

[COLOR=#333333] 
     ActiveSheet.Range("A:D").RemoveDuplicates _
          Columns:=[/COLOR]Array(Columns("A").Column, Columns("B").Column, Columns("C").Column)[COLOR=#333333], Header:=xlYes[/COLOR]

 

[DanteAmor]

Well, there you have the alternative, I hope it's what you need.

 

[harky]

Thanks for helping

Well, there you have the alternative, I hope it's what you need.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.