[VBA] convert TextNumber to Number

convert TextNumber to Number

보통 시스템에서 뽑아낸 자료를 보면 숫자인데도 텍스트로 된 경우가 있다.

이런 경우에 일일이 다 변경하는 건 정말 짜증나는 일이다.

VBA 코드를 알면 정말 간단하게 해결할 수 있다.

Sub Convert_TextNumber_To_Number()
    Dim rngC As Range
    Dim rngTarget As Range

    Set rngTarget = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)

    On Error Resume Next
    For Each rngC In rngTarget
        'If IsNumeric(rngC) Then rngC = Val(rngC) '// 에러 발생함

        If IsNumeric(rngC) Then rngC =Format(rngC, "#")  '// 정상처리됨

    Next rngC

    Set rngTarget = Nothing
    MsgBox "작업완료"
   
End Sub

TextNumber_to_Number.vbs

Text2Number.xlsm

이 코드를 엑셀에서 Alt + F11 키를 누르면 나오는 창에서 삽입 - 모듈 을 누르세요.

그러면 창이 나오는데 거기에 붙여넣기를 합니다

그곳에서 F5키를 누르면 실행되고 변경된 결과를 순식간에 확인할 수 있습니다.