Bulk find and replace

**thisandthat** · 02-03-2012, 06:12 PM

I have a piece of code and I need to replace around 500 key words in. The find and replace function is perfect but it's going to take to long. I though excel might have a way to do it automatically.
Not much of a macro expert but I though maybe someone could point me in the right direction one way or the other.

Thanks

**TMShucks** · 02-03-2012, 06:21 PM

You could probably mak a list of the 500 words and their replacement values.

It should then be possible to loop through the list doing a Replace All.

To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook. Don't upload a picture when you have a workbook question. None of us is inclined to recreate your data. Upload the workbook and manually add an 'after' situation so that we can see what you expect. In addition clearly explain how you get the results..
To attach a file to your post, you need to be using the main 'New Post' or 'New Thread' page and not 'Quick Reply'.
To use the main 'New Post' page, click the 'Post Reply' button in the relevant thread.

On this page, below the message box, you will find a button labelled 'Manage Attachments'.
Clicking this button will open a new window for uploading attachments.

You can upload an attachment either from your computer or from another URL by using the appropriate box on this page.
Alternatively you can click the Attachment Icon to open this page.

To upload a file from your computer, click the 'Browse' button and locate the file.

To upload a file from another URL, enter the full URL for the file in the second box on this page.
Once you have completed one of the boxes, click 'Upload'.

Once the upload is completed the file name will appear below the input boxes in this window.
You can then close the window to return to the new post screen.

**pike** · 02-03-2012, 06:26 PM

or you code use

Sub ptest()
    With Cells
        .Replace What:=" one ", Replacement:=" two ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
        .Replace What:="big", Replacement:=" little ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
        .Replace What:=" you ", Replacement:=" me", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
    End With
End Sub

add array or another sheet with the wats and replacmnets

**thisandthat** · 02-07-2012, 08:04 PM

Here is an example of what I'm trying to do (see attached)
Everything in the first sheet (Sheet1) should be searched,
the key words are located in Sheet2.

The code pike posted works fine, just not sure how to increment the search through the list on the second page.

Thanks for the help

Jon

**thisandthat** · 02-07-2012, 08:15 PM

Looking through some other forum post I found

  
Sub FindReplace()
    Dim Frange As Range
    Dim Fr As Range
    Set Frange = Range("F1", Range("F65536").End(xlUp))
    For Each Fr In Frange
        Columns("A:A").Replace What:=Fr, Replacement:=Fr.Offset(0, 1), LookAt:=xlPart, _
                               SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                               ReplaceFormat:=False
    Next Fr

End Sub

Which seems to work well