How to Counting and deleting duplicate entries over multiple columns

How to count and delete duplicate entries over multiple columns

Requirement:

The user this task where the user has a data set of around 58,00 rows and 21 columns.

The user's task is to count and delete any duplicate rows. The rows need to match the previous row in columns 1, 2, 3, 4, 5, 6 and 7.

The user has looked around and have found lots of VBA codes which work great but only check over a single column.

The user also done it the COUNTIFS way which works but it a little messy for my liking.

The user knows there is a Remove Duplicates function in excel but needs it to output the total number of duplicates into a cell.

Also since its quiet a large macro, a status bar would also be great just to know where its up to.

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1197806-counting-and-deleting-duplicate-entries-over-multiple-columns

Solution:

Code:

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim bRow As Long, aRow As Long
    Dim counter As Long
    bRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Sheets("Sheet1").Cells.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlYes
    aRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    counter = bRow - aRow
    MsgBox (counter & " rows were deleted.")
    Application.ScreenUpdating = True
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.