View Single Post
 
Old 10-06-2015, 03:32 PM
shg shg is offline Windows 7 64bit Office 2010 32bit
Advanced Beginner
 
Join Date: Oct 2015
Posts: 55
shg is on a distinguished road
Default

Code:
Sub luxation()
  Dim i          As Long
 
  With Range("R:R")
    For i = .Cells(.Rows.Count).End(xlUp).Row To 2 Step -1
      If .Cells(i).Value2 = .Cells(i - 1).Value2 Then .Cells(i, 1).ClearContents
    Next i
  End With
End Sub
Reply With Quote