Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
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
![]() |
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Can I use Find and Replace all with Hyperlinks? | Excel Discussion (Misc queries) | |||
find replace cursor default to find box | Excel Discussion (Misc queries) | |||
macro to Find Replace in Excel | Excel Discussion (Misc queries) | |||
Find & Replace results to display specified chosen fields | Excel Discussion (Misc queries) | |||
VB Find and Replace | Excel Worksheet Functions |