We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub DupeKiller() Dim wsTemp As Worksheet, lRows As Long, rTemp As Range Set wsTemp = ThisWorkbook.Worksheets("Temp") With wsTemp .Range("A1").PasteSpecial xlPasteValues lRows = .Range("A" & Rows.Count).End(xlUp).Row Set rTemp = .Range("A1:A" & lRows) With rTemp .RemoveDuplicates Columns:=1, Header:=xlNo End With lRows = .Range("A" & Rows.Count).End(xlUp).Row Set rTemp = .Range("A1:A" & lRows) Set r = rTemp rTemp.ClearContents End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.