VBA code to Remove Duplicates in a Column in Excel Example Macros to delete duplicate records in columns of worksheet in MS Excel 2003, 2007, 2010, 2013. Example to show you how to delete duplicate records in Columns from Excel Worksheet.
VBA code to Remove Duplicates in a Column
Here is the Example VBA syntax and Example VBA Macro code to Remove Duplicates in a Column in excel worksheets. This will help you to know how to delete duplicate records in columns from Excel workbook using VBA.VBA Remove Duplicates in a Column: Syntax
Following is the VBA Syntax and sample VBA macro command to delete duplicate in a column from worksheet using VBA. We are using the RemoveDuplicates method of the Columns object of worksheet.Columns(ColumnNumber).RemoveDuplicates Columns:=Array(1)
Here Columns(ColumnNumber).RemoveDuplicates command tells excel to remove the duplicated based on the required Column Number. Columns:=Array(1) will help us to mention the column number to check for the duplicates if there are more than one columns.
VBA Remove Duplicates in a Column: Examples
The following Excel VBA macro code is to delete duplicates in columns from the worksheet. This VBA macro will delete the records based on the column 2.Sub sbRemoveDuplicates() Columns(2).RemoveDuplicates Columns:=Array(1) End Sub
Instructions to run the VBA Macro code to delete duplicates in a Column in Excel
Please follow the below steps to execute the VBA code to delete duplicate Rows in Excel.
- Step 1: Open any Excel workbook
- Step 2: Press Alt+F11 – This will open the VBA Editor
- Step 3: Insert a code module from then insert menu
- Step 4: Copy the above code and paste in the code module which have inserted in the above step
- Step 5: Enter some data in the second column of worksheet. Also enter some duplicate data for testing purpose.
- Step 6: Now press F5 to execute the code
Now you can observe that the duplicate data is removed from the Column 2 which we have mentioned in the above example code.
Explained VBA Code to Delete Active Column
Starting Macro program and sub procedure to write VBA code to delete duplicate records in a column of Excel Worksheet.Sub sbRemove_Duplicates_in_columns()
‘Here Columns refer entire column in the worksheet
‘RemoveDuplicate method is for removing the duplicate records
‘And the Columns parameter is to specify the based on which column to remove duplicate records.
Columns(2).RemoveDuplicates Columns:=Array(1)
End Sub
End statement to end the VBA code to remove duplicate records in a column
Is it possible to copy the duplicates instead of removing them? What I’m trying to figure out is a way to find duplicates and copy them into a new worksheet. See example below:
ActiveSheet.Range(“$A$1:$D$8”).CopyDuplicates Columns:=Array(1, 2), Header _
:=xlYes
Thanks!
Hi Jason,
We do not have the built-in function to copy the duplicates, however we can write a userdefined function to do this. or we can use countif and advanced filter to get the duplicates.
Thanks-PNRao!
Dear Sir, To remove duplicate I found a code as below
Range(“a1:a10”)).select
Selection.removeduplicates (1) Why is this (1) used when already the range has been specified to check for duplicate..
Regards
Venkat
Hello,
I want to remove duplicates in column A. But it should deleted the row only if the value in column B is less between the two fund duplicate rows. Please help on this
Set Myrange = Sheets(“Sheet2”).Range(“A1:A245″)
Dim i As Long
Dim j As Long
For i = 1 To Myrange.Cells.Count
For j = Myrange.Cells.Count To (i + 1) Step -1
If Myrange.Item(j) = Myrange.Item(i) Then
Myrange.Item(j).Value = ”
End If
Next
Next