Removing ">" between unknown numbers

leroylove87

New Member
Joined
Aug 2, 2010
Messages
7
Hi all,

Looked hi and low, but cant find an answer anywhere.

I have 16000 entries containing "?? > ?? >"
(?? being unknown numbers)
I need to remove the second ">" whilst keeping the one between the two number groups, therefore becoming "?? > ??"

Below is an example:

<table style="border-collapse: collapse; width: 447pt;" width="596" border="0" cellpadding="0" cellspacing="0"><col style="width: 447pt;" width="596"> <tbody><tr style="height: 15pt;" height="20"> <td style="height: 15pt; width: 447pt;" width="596" height="20">K&N Alfa Romeo 33 90 > 94 > Replacement Filter (33-2096)</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">K&N Alfa Romeo 33 86 > 94 > Replacement Filter (33-2096)</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Pipercross - Alfa Romeo 33 1.8 TD 86 > 94 > PP1214</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Pipercross - Alfa Romeo 33 1.7 i.e. 4x4 88 > 92 > PP1214</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Pipercross - Alfa Romeo 33 1.7 i.e. 88 > 94 > PP1214</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Pipercross - Alfa Romeo 33 1.7 16v 4x4 90 > 94 > PP1214
</td></tr></tbody></table>
Any ideas?

Thanks in advance
 

Some videos you may like

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

cornflakegirl

Well-known Member
Joined
Nov 4, 2004
Messages
2,023
Yeah, Barry's is better - I knew there was a way to get rid of the extra space in the middle, but had forgotten it was TRIM.
 

MickG

MrExcel MVP
Joined
Jan 9, 2008
Messages
14,841
Try :-
Code:
[COLOR="Navy"]Sub[/COLOR] MG16Sep40
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    Dn.Characters(InStrRev(Dn, ">"), 1).Text = ""
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 

Watch MrExcel Video

Forum statistics

Threads
1,118,568
Messages
5,572,974
Members
412,491
Latest member
tweetytoon
Top