단어는 일반적으로 Microsoft Word와 같은 워드 프로세서와 연결됩니다. 그러나 많은 사람들이 스프레드 시트 프로그램에서 단어로 작업하기도합니다. (항상 메모를 쓰기 위해 Excel을 사용했던 동료가있었습니다.) 누군가로부터받은 워크 시트의 단어 수를 세고 싶을 때가 있습니다. Word에서는 이러한 작업을 수행하는 기본 기능이 있지만 Excel에서는 수행 할 수 없습니다.

물론 한 가지 해결책은 통합 문서를 Word로로드하고 거기에서 단어 수를 계산 한 다음 파일을 닫는 것입니다. 그러나 이것은 Excel 자체에서 단어 수를 계산하는 매크로를 만드는 것만 큼 유연하지는 않습니다. 다음 매크로 CountWords는 워크 시트에서 선택한 범위의 단어 수를 계산합니다.

Sub CountWords()

Dim MyRange As Range     Dim CellCount As Long     Dim TotalWords As Long     Dim NumWords As Integer     Dim Raw As String

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

TotalWords = 0     For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             Raw = MyRange.Cells(CellCount).Value             Raw = Trim(Raw)

If Len(Raw) > 0 Then                 NumWords = 1             Else                 NumWords = 0             End If             While InStr(Raw, " ") > 0                 Raw = Mid(Raw, InStr(Raw, " "))

Raw = Trim(Raw)

NumWords = NumWords + 1             Wend             TotalWords = TotalWords + NumWords         End If     Next CellCount     MsgBox "There are " & TotalWords & " words in the selection."

End Sub

매크로는 선택한 범위의 각 셀을 단계별로 실행합니다.

그런 다음 수식이 포함 된 모든 셀을 무시합니다. 다른 모든 셀에서는 기본적으로 셀의 공백 수를 계산합니다. (하나 이상의 공백은 단어를 구분하는 것으로 간주됩니다.) 그러면 단어 개수가 메시지 상자에 표시됩니다.

매크로는 비교적 작은 범위에서 매우 빠릅니다. 넓은 범위 (예 : 전체 워크 시트)를 선택하면 매크로가 작업을 완료하는 데 많은 시간이 걸릴 수 있습니다. 요점은 매크로를 호출하기 전에 분석 할 실제 범위 만 선택하도록하는 것입니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶으면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11748)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은`link : / excel-Counting_Words [Counting Words]`에서 찾을 수 있습니다.