Skip to main content

How to remove duplicates but keep first instance in Excel?

Author: Siluvia Last Modified: 2020-07-23

Let’s say, there is a list of values in your worksheet which contains some duplicates, now, you need to remove the duplicates but keep the first row where the duplicated value is found. In this article, we will show you two methods of removing duplicates but keep first instance in Excel.

Remove duplicates but keep first instance with VBA code
Remove duplicates but keep first instance with Kutools for Excel


Remove duplicates but keep first instance with VBA code

You can run the below VBA code to remove duplicates but keep first instance in a column.

1. Press Alt + F11 to open the Microsoft Visual Basic for Applications dialog box.

2. In the Microsoft Visual Basic for Applications dialog box, click Insert > Module. Then copy and paste the below code into the code window.

VBA code: remove duplicates but keep first instance

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. Press F5 key to run the code. In the popping up KutoolsforExcel dialog box, select the range you want to remove duplicates, and then click the OK button. See screenshot:

Now you can see all duplicate rows except the first records are removed from the selected column range. See screenshot:


Remove duplicates but keep first instance with Kutools for Excel

Beside the VBA code, you can use the Select Duplicate & Unique Cells utility of Kutools for Excel add-in to easily remove duplicates but keep the first instances in Excel.

Before applying Kutools for Excel, please download and install it firstly.

1. Select the range you want to remove duplicates but keep first instances. Then click Kutools > Select > Select Duplicate & Unique Cells

2. In the Select Duplicate & Unique Cells dialog box, select the Duplicates (Except 1st one) option, and then click the OK button. See screenshot:

doc remove duplicates1

3. In the following Select Duplicate & Unique Cells dialog box, click OK.

doc remove duplicates1

4. Now the duplicates are selected except the first instances, please press the Delete key to remove the selected duplicates.

Note: If you want to delete the duplicate rows, you just need to check Select entire rows option in the Select Duplicate & Unique Cells dialog box, and then apply the Delete command of the right click menu to remove the entire duplicate rows.

  If you want to have a free trial (30-day) of this utility, please click to download it, and then go to apply the operation according above steps.


Remove duplicates but keep first instance with Kutools for Excel

Best Office Productivity Tools

🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...

Description


Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell John I Red John I Blue John I Yellow Joe I Red Joe I Blue Joe I Yellow and turn it into John I Red I Blue I Yellow Joe I Red I Blue I Yellow Can you help on just keeping the first duplicate in a single cell only?
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations