Hide duplicate rows

Originally Posted by VBA Noob

Maybe this code will help

How to add code

Option Explicit
 
Sub DeleteDups()
     
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("B65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("B1:B" & x), Range("B" & x).Text) > 1 Then
            Range("B" & x).EntireRow.Delete
        End If
    Next x
     
End Sub

VBA Noob

So what if I needed to only hide the duplicate rows temproarily?

Originally Posted by VBA Noob

Try

Option Explicit
 
Sub DeleteDups()
     
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("B65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("B1:B" & x), Range("B" & x).Text) > 1 Then
            Range("B" & x).EntireRow.Hidden = True
        End If
    Next x
     
End Sub

VBA Noob

Works like a charm! thanks a million!

Originally Posted by VBA Noob

PS. Please read forum rules below and remember to start your own thread

I did, or at least i thought i did. what other thread did i steal, and how did i manage to do so?