How to remove duplicates with .RemoveDuplicates?

Question

I have values in Column B of Sheet #1. I want to copy those values to a different sheet, then remove the duplicate values.

I have the following code:

tSheet.Range("B2:B" & tSheet.Range("B" & tSheet.Rows.Count).End(xlUp).Row).Copy
tWb.Sheets("HELPER").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Range("A1:A10").RemoveDuplicates

It is not removing the duplicates.

Gary's Student · Accepted Answer · 2021-01-14T15:35:46.977

1

EDIT#1:

Replace:

Range("A1:A10").RemoveDuplicates

with:

tWb.Sheets("HELPER").Range("A1:A10").RemoveDuplicates Columns:=1, Header:=xlNo

edited Jan 14 '21 at 15:35

answered Jan 14 '21 at 15:09

Gary's Student

95,722
10
59
99

@soraia635 See my **EDIT#1** – Gary's Student Jan 14 '21 at 15:17
@soraia635 You are quite welcome! .......................I will "clean-up this answer later. – Gary's Student Jan 14 '21 at 15:34

How to remove duplicates with .RemoveDuplicates?

1 Answers1