텍스트 숫자(문자열 숫자)를 숫자로 일괄 변경 VBA

텍스트 숫자(문자열 숫자)를 숫자로 일괄 변경 VBA

텍스트로 된 숫자 즉 문자열이 숫자인 경우에 일괄 숫자로 변경하는 VBA 코드입니다.

사용의 편의성을 위해 변경할 범위를 좀 더 편하게 지정하도록 했습니다.

빨간색으로 된 부분만 변경해서 사용하면 됩니다.

Sub TextNumber2Number()

    Dim rngC As Range

    Dim rngAll As Range

    Dim rngCh

    

    Application.ScreenUpdating = False   '// 화면 업데이트 (일시) 중지

    rngCol = "D"                          '// 열지정

    sRow = 2                      '// 데이터 시작행 설정

    Set rngAll = Range(Cells(sRow, rngCol), Cells(Rows.Count, rngCol).End(3))  '// 범위지정

    'Set rngAll = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) '// 시트 전체 지정

    On Error Resume Next

    For Each rngC In rngAll

        'If IsNumeric(rngC) Then rngC = Val(rngC) '// 에러 발생함

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

    Next rngC

    Set rngAll = Nothing

    MsgBox "변환완료"

    

End Sub