looping replace function

replace value from column A it a character |

Do what now??

Are you comparing the values in column A to any value in column B? Or are you only comparing the values in column A to their adjacent cell in column B?

Alright.

Sub remove()
Application.ScreenUpdating = False
'yay
Dim b As Range, a As Range
Dim btext As String, atext As String

For Each b In Range(Range("B1"), Cells(Rows.Count, 2).End(xlUp))

    btext = b.Text
    
    For Each a In Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp))

    atext = a.Text
    
    If atext = btext Then a.FormulaR1C1 = "|"
    
    Next a

Next b
End Sub

Very nice, repped and thank you. Loved the 'yay for screenupdating. I stumble around and found a solution myself as well.

With ActiveSheet
rptrange = .Cells(.Rows.Count, "b").End(xlUp).Row
End With
    Columns("A:A").Select
    For Each cell In Range("b1:b" & rptrange)
    Selection.Replace What:=cell.Value, Replacement:="|", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Next cell

Thanks! I try to make life more enjoyable sometimes

Hey make sure to put code tags around your code. Next time you post some code somewhere, just highlight all of it and click the "#" in the text editor right above the text box. That way you don't get yelled at by moderators well, not really "yelled" at, but at least they won't constantly ask you to put them on.