◎ 분명히 숫자인데 표시형식을 숫자로 아무리 바꾸어도 계산이 되지 않고 문자 형식으로 나타나거나 오류표시가 나타나 있는 경우가 있습니다. 특히 웹페이지를 블록 지정하여 복사했을 때 이런 사항이 잘 나타납니다. 그런데 셀 서식에서 표시형식을 아무리 바꾸어도 변하지 않던 셀을 지정하고 F2를 눌러 수정으로 들어간 다음 아무것도 하지 않고 Enter만 누르면 숫자 형식으로 변하는 경우가 있습니다. 몇 개 되지 않을 경우에는 F2누르고, Enter 누르고, 반복해서 사용할 수 있겠지만 이런 사항이 수십, 수백개라면 어떻게 될까요? 이런 문제점을 VBA를 이용하여 해결해 보도록 하겠습니다. 아주 간단하니깐 잘 따라해 보세요 ^^

※ 다음과 같이 숫자 오류가 있다는 가상으로 진행을 해 보도록 하겠습니다.

1) 우선 숫자인데 문자형식으로 나타는 파일을 열고 ‘Alt+F11’ 또는 ‘도구>매크로>Visual Basic Editor’를 눌러 Visual Basic Editor 창이 나타나게 합니다.

Tip) 위 화면처럼 좌측에 프로젝트 탐색기 및 속창 창이 나타나지 않았다면 Ctrl+R(프로젝트 탐색기)와 F4(속성 창)를 눌러 보세요~

2) ‘삽입>모듈’ 메뉴를 누르면 오른쪽에 코드 입력창이 나타납니다.

3) 입력창에 다음과 같이 코드를 입력합니다.
---------------------------------------------------------
Sub 바꾸기()

    Dim a As String   ‘(a 라는 변수를 지정)
   
    Do While ActiveCell <> ""   ‘(현재 선택한 셀이 공백여부를 확인, 공백이 아니면 실행)
        a = ActiveCell   ‘(현재 셀의 값을 a변수에 입력)
        ActiveCell = a   ‘(a변수의 값을 현재 셀에 다시 입력)
        ActiveCell.Offset(1, 0).Select   ‘(현재 셀에서 아래로 한칸 이동)
    Loop   ‘(반복)

End Sub
---------------------------------------------------------

4) Visual Basic Editor 창을 닫고 숫자가 문자로 잘못되어 있는 시트로 이동하여 잘못 입력되어 있는 셀을 선택합니다.(화면에서는 B2셀 선택)

5) ‘Alt+F8’을 눌러 나타난 매크로 창에서 ‘3)’에서 만들어진 매크로를 선택하고 ‘샐행’ 단추를 클릭합니다.

6) 다음과 같이 숫자임에도 불구하고 문자로 나타났던 숫자들이 다시 숫자 형식으로 변경되는 것을 확인할 수 있습니다.