Find and replace string in cell

[trekker1218]

Hello,
I am trying to find and change a word with a cell with another word based on the value of another cell.

example:

4M690	4m690 V-belt Outside Length 69"
4M690	V-belt Outside Length 69" 4m690
4M690	V-belt Outside 4m690 Length 69"
4M690	V-belt Outside Length 4m690 69"
4L690	V-belt Outside Length 69"

I need to find the value in A1 and replace that string in B1. My basic problem is the upper and lower case issue. I tried find and replace but could not get it to work properly.
I only want to change the actual matching string from A1 in B1 the result would be this below.

4M690	4M690 V-belt Outside Length 69"
4M690	V-belt Outside Length 69" 4M690
4M690	V-belt Outside 4M690 Length 69"

I would like to use a VBA or condition formula if possible.

 

[kweaver]

It is always the lower-case changed to upper-case?
=SUBSTITUTE(B1,LOWER(A1),A1)

 

[trekker1218]

Is there a way to make it work in a condition or vba without adding another column to insert your formula

 

[kweaver]

Try:

Sub Trekker()
Dim LR As Long, i As Integer, str As String

LR = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LR
str = WorksheetFunction.Substitute(Range("B" & i), LCase(Range("A" & i)), Range("A" & i))
Cells(i, 2) = str
Next

End Sub

 

[trekker1218]

thank you .