Find/replace using a list

BenMiller

BenMiller

Well-known Member
Joined
Nov 17, 2011
Messages
1,964
Office Version
  1. 365
Platform
  1. Windows
I have a list of close to 13,000 items with detailed descriptions. Many of the words (about 60) within the descriptions need to be changed.
I have a list on a new sheet of the old spelling in column A and the new spelling in column B.
Many of the description cells will contain a bunch of these words, which all need to be replaced with the new ones.
My question is, is it possible to do a find/replace using a cell reference as what to look for and what to replace; and furthermore, can this be done with a range of cells - all the old spellings and all the new spellings.
Below is a sample of my data.


Excel Workbook
ABC
1Old SpellingNew SpellingMaster List
2Milk OCG*MilkOCGLarge bar Milk OCG Dark OCG Dark Caramel
3Dark OCG*DarkOCGSmall square Cookies & Cream Milk OCG
4Cookies & Cream*Cookies&CreamAcetate pack Dark OCG tote bag
5Caramel*CaramelFive piece set Caramel Dark OCG
6Large Custom Mold Dark OCG
7Small round Cookies & Cream Caramel
Sheet3
 
Sort by date Sort by votes
Code: 
For i = 1 To 13000
    Range("C" & i).Replace What:=Range("A" & i).Value, Replacement:=Range("B" & i).Value, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
Next

That has only been mildly tested, but it seems to work as long as you start at the top of the page. If your range starts lower, you'll have to adjust the loop's "i" values
 
Upvote 0
See if this does what you want:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> Foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>        <SPAN style="color:#00007F">For</SPAN> i = 2 <SPAN style="color:#00007F">To</SPAN> Cells(Rows.Count, "A").End(xlUp).Row<br>            Range("C:C").Replace What:=Cells(i, "A").Value, Replacement:=Cells(i, "B").Value, LookAt:= _<br>                xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=<SPAN style="color:#00007F">False</SPAN>, _<br>                ReplaceFormat:=False<br>        <SPAN style="color:#00007F">Next</SPAN> i<br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

HTH,
 
Upvote 0
Smitty said:
See if this does what you want:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> Foo()<br>****<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>****<br>********<SPAN style="color:#00007F">For</SPAN> i = 2 <SPAN style="color:#00007F">To</SPAN> Cells(Rows.Count, "A").End(xlUp).Row<br>************Range("C:C").Replace What:=Cells(i, "A").Value, Replacement:=Cells(i, "B").Value, LookAt:= _<br>****************xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=<SPAN style="color:#00007F">False</SPAN>, _<br>****************ReplaceFormat:=False<br>********<SPAN style="color:#00007F">Next</SPAN> i<br>********<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

HTH,
Click to expand...

This one seemed to work! I noticed you ignore cells A1 and B1, but include C1 - is that correct?
 
Upvote 0
jproffer said:
Code: 
For i = 1 To 13000
    Range("C" & i).Replace What:=Range("A" & i).Value, Replacement:=Range("B" & i).Value, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
Next

That has only been mildly tested, but it seems to work as long as you start at the top of the page. If your range starts lower, you'll have to adjust the loop's "i" values
Click to expand...

This one gave me an error message ...Smitty seems to have solved it though; thanks for the help :)
 
Upvote 0
BenMiller said:
This one seemed to work! I noticed you ignore cells A1 and B1, but include C1 - is that correct?
Click to expand...

Yes, I left out the header rows for the find & replace part, but left in all of column c, because that's the easiest way to reference the entire column.
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question Question
Macro/Automating Edits and Calculations for Large Report (40K rows)
Replies
6
Views
207
kevin9999
K
M
  • Question Question
Match cell contents exactly for find and replace based on a table
Replies
3
Views
877
mumps
mumps
K
  • Question Question
VBA codes to replace all cells containing a certain value
Replies
2
Views
471
Snakehips
Snakehips
A
  • Question Question
Find and Replace Value in List Named Range Reference
Replies
0
Views
597
arembr01
A
A
  • Solved
Using VBA to loop through multiple Word Templates and fill them in with Excel Data
2
Replies
14
Views
2K
John_w
J

Forum statistics

Threads
1,226,797
Messages
6,193,055
Members
453,772
Latest member
aastupin

Share this page

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
Back
Top