Delete repeated Values in excel

[rival36]

I want to delete repeated values in excel sheet. I mean if the previous cell contains the same value as in current cell, return current cell value as zero. please go through the screenshot.
Please help

 

[jolivanes]

Sub Maybe_A()
Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(i, 1).Value = Cells(i, 1).Offset(-1).Value Then Cells(i, 1).Value = 0
    Next i
End Sub

Sub Maybe_B()
Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i, 1).Value = 0
    Next i
End Sub

 

[AC PORTA VIA]

Put this FORMULA in E5 if you want to use helper column to get what you want
=IF(A5=A4,0,A5)

 

[Fluff]

Another option

Sub rival36()
   With Range("A5", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate("if(" & .Address & "=" & .Offset(-1).Address & ",0, " & .Address & ")")
   End With
End Sub

 

[rival36]

Put this FORMULA in E5 if you want to use helper column to get what you want
=IF(A5=A4,0,A5)

no i don't want to use helper column

 

[AC PORTA VIA]

no i don't want to use helper column

I understand
Thanks for reply

 

[rival36]

I understand
Thanks for reply

m using some logic and i want that if previous cell having same value as current cell is should return zero in current cell

 

[rival36]

Sub Maybe_A()
Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(i, 1).Value = Cells(i, 1).Offset(-1).Value Then Cells(i, 1).Value = 0
    Next i
End Sub

Sub Maybe_B()
Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i, 1).Value = 0
    Next i
End Sub

Not working sir, I want to use excel formula and not VB,
m using some logic and i want that if previous cell having same value as current cell it

should return zero in current cell

 

[Fluff]

If you don't want to use a second column, then you will have to use VBA. A cell can contain a hard value or a formula, but not both.

 

[jolivanes]

Re: "Not working sir"
Yes it does work.