Convert columns formatted as text to number

[Dokat]

Hi,'

I have a worksheet ("POS") with data table where I'd like to format column F as number. Column F has some text fields (All Other) and numbers formatted as text together. Is there anyway to convert format of the column as numbers. I tried below code however it didn't do anything. Appreciate any help! Thanks

Sub ConvertToNumber()
Application.ScreenUpdating = False
Worksheets("POS").Columns("F").Select
Selection.NumberFormat = "0"
Application.ScreenUpdating = True
End Sub

 

[jolivanes]

"and numbers formatted as text together" What does this mean?
You can only convert numericals formatted as text back to numerical values.
Multiply by 1 or use CDbl

 

[Siddharth Rout]

If I have understood you correctly, here are 2 ways.

NON VBA WAY

The easiest way to do it is using Data | Text to Columns

VBA WAY

Option Explicit

Sub Sample()
    Dim ws As Worksheet
   
    '~~> Change this to relevant worksheet
    Set ws = Sheet1
   
    With ws
        .Columns(6).TextToColumns Destination:=.Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    End With
End Sub