Delete words in a single column

[i8ur4re]

I have column F10 where i have the "Quantity", in each cell, I have a number + cases or each or lbs, or Cases. I want to remove the words, just keep the number. Any help, scripts are welcome. Thank you

Quantity

1 Cases

1 cases

11 lbs

3 each

<tbody>
</tbody>

 

[JoeMo]

Assuming number always comes first followed by a space.

Excel Workbook
	F	G
2	Quantity	Num
3	1 Cases	1
4	1 cases	1
5	11 lbs	11
6	3 each	3
Sheet1

 

[Joe4]

Is it always a number followed by a space, and then the words?
If so, then you can use "Text to Columns" on that column, choosing a delimiter of a single space (and choosing not to import the second field).
That will just leave you with the numbers.

 

[JLGWhiz]

If you want to use VBA

Sub tr()
Dim c As Range, spl As Variant
With ActiveSheet
    For Each c In .Range("F2", .Cells(Rows.Count, "F").End(xlUp))
        spl = Split(c.Value, " ")
            c = spl(LBound(spl))
    Next
End With
End Sub