Microsoft Office Forums - View Single Post - [Solved] how can I modify this macro to work on another column besides "A"

shg · 10-06-2015, 08:27 AM

One way:

Code:

Sub luxation()
  Dim r             As Range
  Dim iRow          As Long
  Dim iCol          As Long
 
  Set r = ActiveSheet.UsedRange
 
  For iCol = 1 To r.Columns.Count
    For iRow = r.Rows.Count To 2 Step -1
      If r(iRow, iCol).Value2 = r(iRow - 1, iCol).Value2 Then r(iRow, iCol).ClearContents
     Next iRow
  Next iCol
End Sub