delete duplicate / duplicate rows Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
Sub Delete_Duplicates()
Dim iRows As Long
Dim iCols As Long
Dim RowMax As Long
Dim ColMax As Long
Dim bSame As Boolean
Dim rowMin As Long
Dim colMin As Long
'restrict range to check to just cells in the used range
With Intersect(Selection, ActiveSheet.UsedRange)
'make certain there are at least two rows
If .Rows.Count = 1 Then
MsgBox "Pick more rows!"
Exit Sub
End If
'make certain only one range is selected
If .Areas.Count > 1 Then
MsgBox "Only a single area is allowed"
Exit Sub
End If
'set min and max columns numbers
rowMin = .Cells(1).Row + 1
RowMax = .Cells(.Cells.Count).Row
colMin = .Cells(1).Column
ColMax = .Cells(.Cells.Count).Column
End With
'check rows, starting from the bottom and working up
For iRows = RowMax To rowMin Step 1
90
'initialize each time
bSame = True
'check column values
For iCols = colMin To ColMax
If Cells(iRows, iCols).Value <> _
Cells(iRows+1,iCols).Value Then
'if a difference is found set bSame to False
bSame = False
Exit For
End If
Next
'if bSame still true, delete the row
If bSame Then Rows(iRows).Delete
Next
End Sub

No	Macro Name
1	delete duplicate / duplicate rows
2	deletes duplicate records
3	I want to delete duplicates (may delete rows)
4	deletes duplicate records (duplicate records)
5	excel operators hk
6	add selection sub duplicates_arrange
7	Deletes duplicates in column b
8	deletes the top empty cells from the last full cell on the sheet / page
9	change the message text written in macro
10	prints selected areas on a sheet of paper
11	prints selected areas on a sheet of paper
12	deletes data
13	cell-related codes
14	dictionary codes
15	show file path list in detail fields of files file path etcâ € ¦
16	browse folder xls list
17	delete empty rows in column one by one
18	select rows in column delete empty ones
19	delete all empty rows in column
20	find criteria matching in column c (from c2) and delete all rows (criterion combobox)

Excel Free Macros (VBA)

Delete Duplicate / Duplicate Rows

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords