Massive Find and Replace

Scadadude

Board Regular
Joined
Oct 17, 2008
Messages
50
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
 
Last edited:

Some videos you may like

Excel Facts

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.

xtremegrump

New Member
Joined
Jan 7, 2011
Messages
45
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
ABC
131421234This is one String
224131324This is the Second String
332141342This is the Third String
412343142This is the Fourth String
513242413This is the Fifth String
613423214This is another String
Sheet2


Excel Workbook
ABC
1This is the Fourth String1234This is one String
2This is the Fifth String1324This is the Second String
3This is another String1342This is the Third String
4This is one String3142This is the Fourth String
5This is the Second String2413This is the Fifth String
6This is the Third String3214This is another String
Sheet2
 

Watch MrExcel Video

Forum statistics

Threads
1,122,569
Messages
5,596,915
Members
414,110
Latest member
docops

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top