How do I copy the first instance of all duplicate values for a range in a column and paste those values into a different column? What's the VBA code for this?

ParkerJimenez · Jul 14th 2020

Hello, what I want to do is automatically copy all first instances of unique values in Column C and paste them into a different column. The highlighted cells show the first instance of a unique value, I want to paste these in Column D automatically. Thanks

Fluff13 · Jul 14th 2020

How about

Code

Sub ParkerJimenez()
   With Sheets("Test")
      .Range("C2", .Range("C" & Rows.Count).End(xlUp)).AdvancedFilter xlFilterCopy, , .Range("D2"), True
   End With
End Sub

ParkerJimenez · Jul 14th 2020

Ran it, have an error.

Fluff13 · Jul 14th 2020

Change the sheet name to match your sheet name.

ParkerJimenez · Jul 14th 2020

I tried that but it still doesn't work.

Fluff13 · Jul 14th 2020

What error number & message did you get?

Also which line of code gets highlighted?

ParkerJimenez · Jul 14th 2020

That's the error message.

Fluff13 · Jul 14th 2020

In that case the sheet name is wrong.

You need to change Test to what the name of the sheet is, as seen on the tab.

ParkerJimenez · Jul 14th 2020

This is what I have and it doesn't work

Fluff13 · Jul 14th 2020

That's the name of the workbook not the sheet, change it to Sheet1

ParkerJimenez · Jul 14th 2020

Thanks, it works! I'm a complete novice when it comes to VBA, any tips on learning to the the level your at?

Fluff13 · Jul 14th 2020

You're welcome & thanks for the feedback.

I've learnt most of what I know through helping out on sites like this.

How do I copy the first instance of all duplicate values for a range in a column and paste those values into a different column? What's the VBA code for this?

Participate now!

Share

Tags