Massive Find and Replace

[Scadadude]

Hi guys, Hope you can help. I will try my best to explain my problem

Column A contains the data that is "wrong" 4 character strings This column is where I want the Replace function to take place

Column B&C are basically the legend or the key that contain the accurate data

Column B contains a list of all of the 4 character string combinations

Column C contains the descriptions of each 4 character string which is what I want to replace the strings with.

Example

Note that A & B are in a different order...... B & C are from a major list that will cover all that I am trying to Find and Replace.

Column A will be a partial list everytime...

Thanks in advance

Scadadude

 

[xtremegrump]

Not very pretty, but it should work.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> ReplaceWithString()<br><SPAN style="color:#007F00">'</SPAN><br><SPAN style="color:#007F00">' ReplaceWithString Macro</SPAN><br><SPAN style="color:#007F00">'</SPAN><br><br><SPAN style="color:#007F00">'</SPAN><br><br>    Range("F1").Select<br>    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],C2:C3,2,0)"<br>    Range("F1").Select<br>    Selection.AutoFill Destination:=Range("F1:F6"), Type:=xlFillDefault <SPAN style="color:#007F00">' Change range F6 to however many rows you have</SPAN><br>    Range("F1:F6").Select<br>    Selection.Copy<br>    Range("A1").Select<br>    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<br>        :=False, Transpose:=<SPAN style="color:#00007F">False</SPAN><br>    Columns("F:F").Select<br>    Application.CutCopyMode = False<br>    Selection.ClearContents<br>    Range("A1").Select<br>    Columns("A:A").EntireColumn.AutoFit<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Excel Workbook
	A	B	C
1	3142	1234	This is one String
2	2413	1324	This is the Second String
3	3214	1342	This is the Third String
4	1234	3142	This is the Fourth String
5	1324	2413	This is the Fifth String
6	1342	3214	This is another String
Sheet2

Excel Workbook
	A	B	C
1	This is the Fourth String	1234	This is one String
2	This is the Fifth String	1324	This is the Second String
3	This is another String	1342	This is the Third String
4	This is one String	3142	This is the Fourth String
5	This is the Second String	2413	This is the Fifth String
6	This is the Third String	3214	This is another String
Sheet2