Excel 2007 - Returning varying characters within a string

[plsimmo]

I have something like below.

<xxxxxxxxxxxxxxxxxxxxx>,
<xxxxxxxx>,
<xxxxxxxxxxxxxxx>,
<xxxxxxxxxxx>,
<xxxxxxxxxxxxxxxxxxxxxxxxx>,

<TABLE style="WIDTH: 134pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=179><COLGROUP><COL style="WIDTH: 134pt; mso-width-source: userset; mso-width-alt: 6546" width=179><TBODY><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: #e0dfe3; BORDER-LEFT: #e0dfe3; BACKGROUND-COLOR: transparent; WIDTH: 134pt; HEIGHT: 12.75pt; BORDER-TOP: #e0dfe3; BORDER-RIGHT: #e0dfe3" height=17 width=179>I want to return all the characters "only (X)s" within a string, that are all contained within <>,.

What would be the simplest way to achieve this?.

As always, thanks in advance for your assistance.
Regards
Paul
<XXXXXXXXXXXXXXXXXXXXXXXXXX></TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: #e0dfe3; BORDER-LEFT: #e0dfe3; BACKGROUND-COLOR: transparent; HEIGHT: 12.75pt; BORDER-TOP: #e0dfe3; BORDER-RIGHT: #e0dfe3" height=17><XXXXXXXXXXXXXXXXXXXX></TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: #e0dfe3; BORDER-LEFT: #e0dfe3; BACKGROUND-COLOR: transparent; HEIGHT: 12.75pt; BORDER-TOP: #e0dfe3; BORDER-RIGHT: #e0dfe3" height=17><XXXXXXXXXXXXXXXXXXXXXXXXX></TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: #e0dfe3; BORDER-LEFT: #e0dfe3; BACKGROUND-COLOR: transparent; HEIGHT: 12.75pt; BORDER-TOP: #e0dfe3; BORDER-RIGHT: #e0dfe3" height=17><XXXXXXXXXXXXX></TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: #e0dfe3; BORDER-LEFT: #e0dfe3; BACKGROUND-COLOR: transparent; HEIGHT: 12.75pt; BORDER-TOP: #e0dfe3; BORDER-RIGHT: #e0dfe3" height=17><XXXXXXXXXXXXXXXXXXXXXXXXX></TD></TR></TBODY></TABLE>

 

[RSXchin]

use code tags [ code ] and [/ code ] (without the spaces)

 

[mikerickson]

I don't see any example strings. But it looks like you tried to post some.

 

[brettdj]

If you had this string in cell A1
aaa<XXDX>dd
and you wanted the
XXDX component then you could use this UDF like
=extractx(A1)

If you wanted only
XXX
then remove the apostrophes from these two lines below
'.Pattern = "[^X]+"
' strTemp = .Replace(strTemp, vbNullString)
to add them to the code

Cheers

Dave

Function ExtractX(strIn As String) As String
    Dim objRegex
    Dim objRegMC
    Dim strTemp As String
    Set objRegex = CreateObject("vbscript.regexp")
    With objRegex
        .Pattern = "<(.+?)>"
        If .test(strIn) Then
            Set objRegMC = .Execute(strIn)
            strTemp = objRegMC(0).submatches(0)
            '.Pattern = "[^X]+"
           ' strTemp = .Replace(strTemp, vbNullString)
             ExtractX = strTemp
        Else
            ExtractX = "No Match"
        End If
    End With
End Function