Replace A Phrase

[Legacy 116183]

I have this block of cells in my spreadhseet numerous times.

[TABLE="width: 205"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Head[/TD]
[TD]Mar[/TD]
[/TR]
[TR]
[TD]Wife[/TD]
[TD]Mar
[/TD]
[/TR]
</tbody>[/TABLE]

Is there any way I can replace it with

[TABLE="width: 205"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Head[/TD]
[TD]Mar[/TD]
[/TR]
[TR]
[TD]Wife[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

Without deleting each one individually?

 

[My Aswer Is This]

Try this:

Assuming we are dealing with column A and B

Sub Test()
'Modified 2-19-18 2:55 AM EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Lastrow
        If Cells(i, 1).Value = "Wife" Then Cells(i, 2).Value = ""
    Next
Application.ScreenUpdating = True
End Sub

 

[Legacy 116183]

Thanks.

It's actually columns E & F, so I guess I replace (Rows.Count, "A") with (Rows.Count, "E")

 

[My Aswer Is This]

Try this:

Sub Test()
'Modified 2-19-18 3:05 AM EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "E").End(xlUp).Row
    For i = 1 To Lastrow
        If Cells(i, "E").Value = "Wife" Then Cells(i, "F").Value = ""
    Next
Application.ScreenUpdating = True
End Sub

 

[Legacy 116183]

Thanks. I shall let you know.

 

[Legacy 116183]

It worked perfectly.

Thanks very much.