펌) 엑셀 - 음수문자를 -숫자로 변경 하기 엑셀 VBA 매크로

Option Explicit
Sub dhTxt2Number()
Dim rngArea As Range
Dim strFormat As String
Const Es As String = "MagicSheet & 엑사모"
On Error GoTo e1
    Set rngArea = Application.InputBox(Prompt:="텍스트로 저장된 숫자를 변환합니다", Title:=Es, Default:=Selection.Address, Type:=8)
    If rngArea Is Nothing Then
    Else
        strFormat = rngArea.Cells(1).NumberFormatLocal '첫번째 셀의 표시형식을 나머지에도 적용한다
        If InStr(strFormat, "@") Then strFormat = "G/표준" '표시형식이 텍스트인 경우라면 일반 서식으로 지정한다.
        dhConvertNumber rngArea, strFormat
    End If
e1:
End Sub
Private Sub dhConvertNumber(rngArea As Range, Optional strNumberFormat = "G/표준")
Dim c As Range
    For Each c In rngArea.Areas '사용자로부터 넘겨 받은 범위를 순환한 뒤
        With c
            .NumberFormatLocal = strNumberFormat '서식을 변경한 뒤
            .Value = .Value '값을 변경한다
        End With
    Next c
End Sub

▷ 출처: 티스토리 disital님 블로그