1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

[레벨:30]아별

2013.05.27 13:54

파이스님..


엑셀의 기본 기능에 그런 기능을 본 기억은 없네요..

아무래도 VBA로 카운트를 해야할 것 같아서 간단히 만들어보았습니다.


'### 숫자와 수식을 제외한 텍스트 셀을 카운트하는 프로시저.

'### Created by abyul.com 2013.05.27

Sub abCountTextInWB()

    Dim lCntCells As Long

    Dim lCntChar As Long

    Dim ws As Worksheet

    Dim rTarget As Range, c As Range

    For Each ws In ActiveWorkbook.Worksheets

        Set rTarget = ws.UsedRange

        On Error Resume Next

        Set rTarget = rTarget.SpecialCells(xlCellTypeConstants, 2)

        If Err.Number <> 1004 Then

            For Each c In rTarget

                lCntCells = lCntCells + 1

                lCntChar = lCntChar + Len(c)

            Next c

        Else

            On Error GoTo 0

        End If

    Next ws

    MsgBox "The count of cells is " & Format(lCntCells, "#,###") & vbNewLine & _

            "The count of characters is " & Format(lCntChar, "#,###")

End Sub



위 코드를 복사한 다음..

Alt+F11눌러 VBE창을 띄우고..

메뉴에서 삽입 > 모듈하시고.. 복사한 코드를 붙여넣으세요..

그런 다음.. Alt+F11눌러서 엑셀로 돌아오시고..

Alt+F8을 눌러 매크로 실행창을 띄우시고..

"abCountTextInWB"를 선택하고.. 실행을 누르시면 아래와 같은 메시지로 결과를 알려줍니다.


abyul.com_0000931.jpg


도움이 되셨기를..


문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)