Excel 에서 숫자를 단어로 변환하기 – 종합 가이드

이 방법의 한계점：

• TRANSLATE() 함수로 인해 Microsoft 365 용 Excel 에서만 작동합니다。
• 출력 결과는 BAHTTEXT() 서식의 정확도에 크게 의존합니다。
• 이 방법은 태국 바트처럼 주 단위와 보조 단위(예： 달러와 센트)를 모두 갖는 통화에 적합합니다。 유사한 통화 구조를 따르지 않는 통화에는 권장되지 않습니다。

방법 2: VBA 사용자 정의 함수 사용

이 섹션에서는 VBA 기반 사용자 정의 함수(UDF)를 사용해 숫자 값을 영어 통화 단어로 변환하는 방법을 배웁니다。 기본적으로 미국 달러(USD)에 맞춰져 있습니다。

단계 1: VBA 코드 삽입

1. 이 기능을 사용할 워크시트를 엽니다。
2. 「Alt」 + “F11"을 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。
3. 편집기에서 「삽입」 > 「모듈」을 클릭하고 다음 VBA 코드를 붙여넣으세요。

   Function SpellNumberToEnglish(ByVal pNumber)
   'Update by Extendoffice
   Dim Dollars, Cents
   arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
   pNumber = Trim(Str(pNumber))
   xDecimal = InStr(pNumber, ".")
   If xDecimal > 0 Then
       Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
       pNumber = Trim(Left(pNumber, xDecimal - 1))
   End If
   xIndex = 1
   Do While pNumber <> ""
       xHundred = ""
       xValue = Right(pNumber, 3)
       If Val(xValue) <> 0 Then
           xValue = Right("000" & xValue, 3)
           If Mid(xValue, 1, 1) <> "0" Then
               xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
           End If
           If Mid(xValue, 2, 1) <> "0" Then
               xHundred = xHundred & GetTens(Mid(xValue, 2))
           Else
               xHundred = xHundred & GetDigit(Mid(xValue, 3))
           End If
       End If
       If xHundred <> "" Then
           Dollars = xHundred & arr(xIndex) & Dollars
       End If
       If Len(pNumber) > 3 Then
           pNumber = Left(pNumber, Len(pNumber) - 3)
       Else
           pNumber = ""
       End If
       xIndex = xIndex + 1
   Loop
   Select Case Dollars
       Case ""
           Dollars = "No Dollars"
       Case "One"
           Dollars = "One Dollar"
       Case Else
           Dollars = Dollars & " Dollars"
   End Select
   Select Case Cents
       Case ""
           Cents = " and No Cents"
       Case "One"
           Cents = " and One Cent"
       Case Else
           Cents = " and " & Cents & " Cents"
   End Select
   SpellNumberToEnglish = Dollars & Cents
   End Function
   Function GetTens(pTens)
   Dim Result As String
   Result = ""
   If Val(Left(pTens, 1)) = 1 Then
       Select Case Val(pTens)
           Case 10: Result = "Ten"
           Case 11: Result = "Eleven"
           Case 12: Result = "Twelve"
           Case 13: Result = "Thirteen"
           Case 14: Result = "Fourteen"
           Case 15: Result = "Fifteen"
           Case 16: Result = "Sixteen"
           Case 17: Result = "Seventeen"
           Case 18: Result = "Eighteen"
           Case 19: Result = "Nineteen"
           Case Else
       End Select
   Else
   Select Case Val(Left(pTens, 1))
       Case 2: Result = "Twenty "
       Case 3: Result = "Thirty "
       Case 4: Result = "Forty "
       Case 5: Result = "Fifty "
       Case 6: Result = "Sixty "
       Case 7: Result = "Seventy "
       Case 8: Result = "Eighty "
       Case 9: Result = "Ninety "
       Case Else
   End Select
   Result = Result & GetDigit(Right(pTens, 1))
   End If
   GetTens = Result
   End Function
   Function GetDigit(pDigit)
   Select Case Val(pDigit)
       Case 1: GetDigit = "One"
       Case 2: GetDigit = "Two"
       Case 3: GetDigit = "Three"
       Case 4: GetDigit = "Four"
       Case 5: GetDigit = "Five"
       Case 6: GetDigit = "Six"
       Case 7: GetDigit = "Seven"
       Case 8: GetDigit = "Eight"
       Case 9: GetDigit = "Nine"
       Case Else: GetDigit = ""
   End Select
   End Function

   

4. 「Alt」 + 「Q」를 눌러 워크시트로 돌아갑니다。

단계 2: 함수 적용

1. 셀에 아래 수식을 입력하고 「Enter」를 누르세요。
   =SpellNumberToEnglish(A2)
2. 그런 다음 채우기 핸들을 끌어 필요에 따라 다른 행에도 적용하세요。 숫자가 이제 다음과 같이 단어로 표시됩니다：

   

다른 통화로 조정하기：

이 함수는 「Dollar(s)」 및 「Cent(s)」로 출력되며， 이는 USD 전용으로 하드코딩되어 있습니다。 다른 통화(예： 「영국 파운드」)로 변환하려면 다음 코드 줄에서 주 단위와 보조 단위를 직접 변경해야 합니다。

매크로 사용 파일로 워크북 저장

기본적으로 VBA 함수는 워크북을 매크로 사용 워크북으로 저장하지 않으면 유지되지 않습니다：

1. 「Ctrl」 + 「S」를 눌러 저장하세요。
2. 매크로 관련 팝업 메시지에서 「뒤로 가기」 버튼을 선택하세요。
   참고： 팝업에 「예」， 「아니요」， 「도움말」만 표시되면 「아니요」를 클릭하세요。

   

3. 「다른 이름으로 저장」 창에서。
   1. 저장 위치를 선택하세요。
   2. 「저장 형식 지정」 드롭다운 목록에서 「Excel 매크로 사용 워크북(*.xlsm)」을 선택하세요。
   3. 「저장」을 클릭하세요。

      

SpellNumberToEnglish VBA 함수의 한계점

• 이 함수는 영어로만 결과를 생성합니다。
• 프랑스어， 독일어 등 다른 언어는 지원하지 않으며， 통화 단위가 숫자 앞에 오는 구조(예： 인도 영어에서 “루피 원 헌드레드”)도 처리하지 않습니다。

• 워크북을 매크로 사용 워크북(.xlsm)으로 저장하지 않으면 Excel 을 종료할 때 함수가 사라집니다。
• .xlsx 파일로 저장하면 모든 VBA 코드가 제거됩니다。

• 매크로 사용 파일을 다른 사용자에게 전송하면 열릴 때 “보안 경고 – 매크로가 비활성화됨”이라는 메시지가 표시됩니다。
• 일부 사용자는 잠재적인 보안 위험을 우려해 매크로 활성화를 꺼려하며 파일 사용을 포기할 수도 있습니다。

• 통화 용어나 서식을 변경하려면 VBA 코드를 직접 수정해야 합니다。
• 매크로나 스크립팅에 익숙하지 않은 사용자에게는 적합하지 않습니다。

방법 3: Kutools for Excel 사용(수식이나 VBA 불필요)

「Kutools for Excel」을 설치한 경우， 「단어로 변환하기」 기능을 사용해 숫자를 영어(통화 또는 일반)， EUR， GBP， JPY 등 수십 가지 다른 언어 및 통화로 변환할 수 있습니다。

Excel 에서 단어로 변환하기을 변환할 수 있는 코드 없는 사용자 친화적이고 다목적 솔루션을 찾고 있다면, Kutools for Excel 은 다음을 지원하는 전용 「단어로 변환하기」 기능을 제공합니다：

• 영어(USD， GBP， EUR 등)
• 수십 가지의 다른 언어 및 통화(예： 일본 엔， 인도 루피， 중국 위안)
• 통화 형식 또는 일반 단어(「One Hundred Twenty-Three Dollars」 대신 「One Hundred Twenty-Three」)

사용 단계：

1. 변환할 숫자가 포함된 셀을 선택하세요。
2. 「Kutools」 > 「콘텐츠」 > 「단어로 변환하기」을 선택하세요。
3. 「숫자를 통화 단어로」 대화 상자에서 다음을 수행해야 합니다：
   1. 선호하는 언어 및 통화 스타일을 선택하세요(예: USD 의 경우 영어 – 미국)。
   2. 「확인」을 클릭하세요。

      

선택 사항： 「달러」나 「센트」 없이 일반 영어 단어를 원하시면 「통화로 변환하지 않음」을 선택하세요。

선택한 숫자가 설정에 따라 적절한 통화 단어로 변환됩니다。

역방향 작업： 통화 단어를 숫자로 변환

다음과 같이 영어 단어로 작성된 통화 금액 목록이 있는 경우：

이를 Excel 에서 실제 숫자(예: 123.45)로 변환하려면 다음과 같은 사용자 정의 VBA 함수(UDF)를 사용할 수 있습니다。

단계 1: VBA 편집기 열기 및 VBA 코드 삽입

1. Excel 통합 문서을 엽니다。
2. 「Alt」 + “F11"을 눌러 「Microsoft Visual Basic for Applications(VBA)」 편집기를 엽니다。
3. VBA 편집기에서 「삽입」 > 「모듈」을 클릭합니다。
4. 다음 VBA 코드를 빈 모듈 창에 복사하여 붙여넣으세요：

   Function WordsToNumber(ByVal Txt As String) As Double
   'Updated by Extendoffice
       Dim x As Object: Set x = CreateObject("Scripting.Dictionary")
       Dim units, tens, specials
       Dim part As String, parts() As String
       Dim total As Double, partial As Double, multiplier As Double
       Dim i As Long, word As String
       
       Txt = LCase(Trim(Txt))
       Txt = Replace(Txt, ",", "")
       Txt = Replace(Txt, "-", " ")
       Txt = Replace(Txt, " and ", " ")
       Txt = Replace(Txt, "  ", " ")
       
       ' Setup basic number words
       x.Add "zero", 0: x.Add "one", 1: x.Add "two", 2: x.Add "three", 3
       x.Add "four", 4: x.Add "five", 5: x.Add "six", 6: x.Add "seven", 7
       x.Add "eight", 8: x.Add "nine", 9: x.Add "ten", 10: x.Add "eleven", 11
       x.Add "twelve", 12: x.Add "thirteen", 13: x.Add "fourteen", 14
       x.Add "fifteen", 15: x.Add "sixteen", 16: x.Add "seventeen", 17
       x.Add "eighteen", 18: x.Add "nineteen", 19: x.Add "twenty", 20
       x.Add "thirty", 30: x.Add "forty", 40: x.Add "fifty", 50
       x.Add "sixty", 60: x.Add "seventy", 70: x.Add "eighty", 80
       x.Add "ninety", 90: x.Add "hundred", 100: x.Add "thousand", 1000
       x.Add "million", 1000000: x.Add "billion", 1000000000
       
       Dim dollarPart As String, centPart As String
       Dim dollarValue As Double, centValue As Double
       
       ' Split into dollars and cents
       If InStr(Txt, "dollar") > 0 Then
           dollarPart = Trim(Split(Txt, "dollar")(0))
       End If
       If InStr(Txt, "cent") > 0 Then
           centPart = Trim(Split(Txt, "cent")(0))
           If InStr(centPart, "dollar") > 0 Then
               centPart = Trim(Split(centPart, "dollar")(1))
           End If
       End If
       
       dollarValue = ParseWordsToNumber(dollarPart, x)
       centValue = ParseWordsToNumber(centPart, x)
       
       WordsToNumber = dollarValue + centValue / 100
   End Function
   
   Private Function ParseWordsToNumber(ByVal Txt As String, x As Object) As Double
       Dim parts() As String: parts = Split(Txt, " ")
       Dim total As Double, current As Double
       Dim i As Long, val As Double
       
       For i = 0 To UBound(parts)
           If x.exists(parts(i)) Then
               val = x(parts(i))
               Select Case val
                   Case 100
                       If current = 0 Then current = 1
                       current = current * val
                   Case Is >= 1000
                       If current = 0 Then current = 1
                       total = total + current * val
                       current = 0
                   Case Else
                       current = current + val
               End Select
           End If
       Next i
       
       total = total + current
       ParseWordsToNumber = total
   End Function

단계 2: 시트에서 함수 적용

1. 「Alt」 + 「Q」를 눌러 Excel 로 돌아갑니다。
2. 빈 셀에 이 수식을 입력하고 「Enter」를 누릅니다。 「채우기 핸들」을 아래로 드래그하여 나머지 결과를 얻으세요。
   =WordsToNumber(A2)

   

결론

단어로 변환하기을(를) 숫자로 되돌리는 변환—또는 단어를 다시 숫자로 변환하는 작업—은 Excel 이 기본적으로 제공하지 않지만， 이 가이드에서는 요구 사항에 따라 사용할 수 있는 여러 가지 실용적인 해결 방법을 제시했습니다：

• Microsoft 365 사용자는 TRANSLATE 같은 최신 내장 함수를 활용해 「주 단위 + 보조 단위」 구조를 따르는 통화에 대해 수식으로 통화 숫자를 영어 단어로 변환할 수 있습니다。
• VBA 사용자 정의 함수는 단어로 변환하기 변환과 통화 단어를 숫자 값으로 되돌리는 작업 모두에서 더 큰 유연성을 제공합니다。 다만 매크로 관련 보안 문제를 동반하므로 코딩에 익숙한 사용자에게 가장 적합합니다。
• Kutools for Excel 은 수식이나 코딩 없이도 가장 쉽고 다국어 지원이 가능하며 다양한 기능을 제공하는 솔루션입니다。 수십 가지 통화와 언어를 지원합니다。
• 단어를 다시 숫자로 되돌려야 하는 경우， VBA 솔루션이 이 요구사항을 효과적으로 충족하지만 정확한 결과를 위해 쉼표 제거 등의 후처리가 필요할 수 있습니다。

재무 문서를 작성하거나 수표 인쇄를 자동화하거나 데이터 표현을 개선하든， 적절한 방법을 선택하면 전문적이고 정확한 결과물을 얻을 수 있습니다。

최고의 Office 생산성 도구

🤖	KUTOOLS AI 도우미： 다음을 기반으로 데이터 분석 혁신하기：지능형 실행   |  코드 생성|  사용자 지정 수식 생성  |  데이터 분석 및 차트 생성|  향상된 함수 호출…
	인기 기능:찾기， 강조 표시 또는 중복 표시   |  빈 행 삭제   |  데이터 손실 없이 열 결합 또는 셀 제거   |  공식을 사용하지 않는 반올림...
	슈퍼 LOOKUP:다중 조건 VLookup  |  다중 값 VLookup  |   여러 시트에서 VLookup   |   퍼지 매치....
	고급 드롭다운 목록:드롭다운 목록 빠르게 생성   |  종속형 드롭다운 목록   |  다중 선택 드롭다운 목록....
	열 관리자:특정 수의 열 추가|열 이동|숨겨진 열의 표시 상태 전환|범위 및 열 비교...
	주요 기능:그리드 포커스   |  디자인 보기   |향상된 수식 표시줄   | 워크북 및 시트 관리자   |  자원 라이브러리(자동 텍스트)|  날짜 선택기   |  워크시트 병합  |  암호화/셀 해독   | 목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터(굵은 글꼴이 있는 셀 필터링/기울임꼴/취소선。。。) 。。。
	상위 15 도구 모음:12 텍스트도구(텍스트 추가,특정 문자 삭제, ...)|   50+차트유형(간트 차트, ...)|   40+ 실용적인수식(생일을 기준으로 나이 계산, ...)|   19 삽입도구(QR 코드 삽입,경로에서 그림 삽입, ...)|   12 변환도구(단어로 변환하기,환율 변환, ...)|   7 병합 및 분할도구(고급 행 병합,셀 분할, ...)|그 외 더 많은 기능

Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개 이상의 언어를 지원합니다！

Kutools for Excel 로 Excel 역량을 한 단계 업그레이드하고 전례 없는 효율성을 경험하세요。Kutools for Excel 는 생산성과 저장 시간을 향상시키는 300 개 이상의 고급 기능을 제공합니다。가장 필요한 기능을 지금 바로 확인하세요。。。

Kutools for Excel 에 대한 자세한 정보。。。무료 다운로드。。。

---

Office Tab 가 Office 에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만들어 줍니다

• Word, Excel, PowerPoint 에서 탭 기반 편집 및 읽기 기능을 활성화합니다, Publisher, Access, Visio 및 Project 에서도 사용 가능합니다。
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성할 수 있습니다。
• 50% 만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄여줍니다！

Office Tab 에 대한 자세한 정보。。。무료 다운로드。。。

---

모든 Kutools 애드인。 하나의 설치 프로그램

Kutools for Office스위트 번들은 Excel, Word, Outlook 및 PowerPoint 용 애드인과 Office Tab Pro 를 포함하며， 다양한 Office 앱을 사용하는 팀에 이상적입니다。

• 올인원 스위트— Excel， Word， Outlook 및 PowerPoint 애드인 + Office Tab Pro
• 하나의 설치 프로그램， 하나의 라이선스— 몇 분 안에 설정 완료(MSI 지원)
• 함께 사용할수록 더 효과적입니다— Office 앱 전반에서 생산성 향상
• 30 일간 모든 기능 무료 체험— 등록이나 신용카드 필요 없음
• 최고의 가성비— 개별 애드인 구매 대비 절약

Kutools for Office 에 대한 자세한 정보。。。무료 다운로드。。。