Sorting numbers in 2 different columns

[manish7490]

HI - I am looking to extract numbers from the strings, please can you help how it can be done.

[TABLE="width: 394"]
<colgroup><col><col span="2"></colgroup><tbody>[TR]
[TD]String[/TD]
[TD="colspan: 2"]Required Answer[/TD]
[/TR]
[TR]
[TD]Rng, Thrst(G08) 1.875in StSteel(0550)[/TD]
[TD]1.875in[/TD]
[TD]0550[/TD]
[/TR]
[TR]
[TD]Disc 1in StSteel(0550)[/TD]
[TD]1in[/TD]
[TD]0550[/TD]
[/TR]
[TR]
[TD]Rng, Thrst(H-2250-652-0594) 2.25in Duple[/TD]
[TD]2.25on[/TD]
[TD]0594[/TD]
[/TR]
</tbody>[/TABLE]

 

[rpaulson]

vba option

Sub do_it()

For r = 2 To 4

a = Split(Cells(r, "A"), "in")(0)
aarray = Split(a, " ")
Cells(r, "B") = aarray(UBound(aarray))



b = Cells(r, "A")
x = InStrRev(b, ")")
Cells(r, "C") = "'" & Mid(b, x - 4, 4)


Next r

End Sub