Ready to get started with anonymous questions today? It's easy! Learn more.
Sub CopyandPasteValues() Application.ScreenUpdating = False Sheets("Unique List").Columns(2).ClearContents Sheets("Data").Range("DR:DR").SpecialCells(xlCellTypeConstants).Copy Sheets("Unique List").Range("B1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Sheets("Unique List").Range("B:B").RemoveDuplicates Columns:=2, Header:=xlYes Application.ScreenUpdating = True End Su
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.