Преобразование столбца текста в номер с помощью VBA

Question

Я ищу для сортировки и группировки книги на основе 1 колонки. Эта колонка извлекается из внешнего программного обеспечения, поэтому она импортируется в текст.

Я попытался с помощью:

Sub Whatever() 

With ActiveSheet.UsedRange 
    .Value = Evaluate(.Address & "*1") 
End With 
End Sub 

Однако, он преобразует все столбцы номер, когда мне просто нужно столбец P (на самом деле P2 через любые, в связи с заголовком столбца) конвертируется. Мысли о том, как просто конвертировать 1 столбец?

Answer 1

Если вы установите значение диапазона для себя, оно преобразует текст в цифры для вас. т.е.

Columns("P").Value = Columns("P").Value 

Answer 2

Попробуйте этот код:

Sub test() 
    Dim lastrow As Long 
    lastrow = Application.Max(2, Cells(Rows.Count, "P").End(xlUp).Row) 
    With Range("P2:P" & lastrow) 
     .NumberFormat = "0" 
     .Value = .Value 
    End With 
End Sub