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.

String	Required Answer
Rng, Thrst(G08) 1.875in StSteel(0550)	1.875in	0550
Disc 1in StSteel(0550)	1in	0550
Rng, Thrst(H-2250-652-0594) 2.25in Duple	2.25on	0594

<colgroup><col><col span="2"></colgroup><tbody>
</tbody>

 

[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