VBA를 사용하여 텍스트 열을 숫자로 변환

Question

1 열을 기준으로 통합 문서를 정렬하고 그룹화하려고합니다. 이 열은 외부 소프트웨어에서 가져와 텍스트로 가져옵니다.

내가 사용하려고했습니다

Sub Whatever() 

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

그러나, 그것은 숫자로 모든 열을 변환 난 그냥 (때문에 열 레이블에 어떤 통해 실제로 P2) 열 (P)를 필요로 할 때 변환됩니다. 그냥 1 열을 변환하는 방법에 대한 생각?

Answer 1

범위 값을 자체로 설정하면 텍스트가 숫자로 변환됩니다. 완전히 일

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 

Answer 2

즉

이 코드를 사용해보십시오. 감사.