使用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