Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Lindsey M
 
Posts: n/a
Default Find and Replace - Quickest Option?

Hi, in a previous post, I asked how could I delete data that was duplicated
over and over in a report that has approx 17,000 rows. It was suggested I do
a Find and Replace on these items. I've done this on one of the fields and it
does take a while to execute. Because there is approx 20 odd things that I
want to Find and Replace (with "" so they are then empty cells), this is
going to take quite a long time.

Has anyone got any suggestions on how I could speed this process up?

I have this for one field:

Columns("A:A").Select
Selection.Replace What:="Evaluation Overview Report cont.", Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows
Columns("A:A").Select
Selection.Replace What:="Filter: Contact Birmingham", Replacement:="" _
, LookAt:=x1Part, SearchOrder:=x1ByRows

Also, anyone know the code to replace the above (say Filter: Contact
Birmingham with a field that will be say "Generated: Mar 03 2005" Where the
date will change) - is it possible to search on a field where only the first
five letters are taken into account?

Any help would be greatly appreciated,
Cheers
Linds
  #2   Report Post  
Bob Phillips
 
Posts: n/a
Default

A bit better

Columns("A:A").Replace What:="Evaluation Overview Report cont.",
Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows

sWhat = "Generated " & Format(TheDate, "mmm dd yyyy")
Columns("A:A")..Replace What:="Filter: Contact Birmingham", Replacement:=""
_
, LookAt:=x1Part, SearchOrder:=x1ByRows


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Lindsey M" wrote in message
...
Hi, in a previous post, I asked how could I delete data that was

duplicated
over and over in a report that has approx 17,000 rows. It was suggested I

do
a Find and Replace on these items. I've done this on one of the fields and

it
does take a while to execute. Because there is approx 20 odd things that I
want to Find and Replace (with "" so they are then empty cells), this is
going to take quite a long time.

Has anyone got any suggestions on how I could speed this process up?

I have this for one field:

Columns("A:A").Select
Selection.Replace What:="Evaluation Overview Report cont.",

Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows
Columns("A:A").Select
Selection.Replace What:="Filter: Contact Birmingham", Replacement:=""

_
, LookAt:=x1Part, SearchOrder:=x1ByRows

Also, anyone know the code to replace the above (say Filter: Contact
Birmingham with a field that will be say "Generated: Mar 03 2005" Where

the
date will change) - is it possible to search on a field where only the

first
five letters are taken into account?

Any help would be greatly appreciated,
Cheers
Linds



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Can I use Find and Replace all with Hyperlinks? HandsOnManager Excel Discussion (Misc queries) 0 February 15th 05 08:39 PM
find replace cursor default to find box luffa Excel Discussion (Misc queries) 0 February 3rd 05 01:11 AM
macro to Find Replace in Excel Nurddin Excel Discussion (Misc queries) 7 January 3rd 05 05:29 AM
Find & Replace results to display specified chosen fields samuel Excel Discussion (Misc queries) 1 December 28th 04 09:43 AM
VB Find and Replace Bony_Pony Excel Worksheet Functions 10 December 6th 04 06:45 PM


All times are GMT +1. The time now is 05:26 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"