분명히 숫자인데 표시형식을 숫자로 아무리 바꾸어도 계산이 되지 않고

 

문자 형식으로 나타나거나

 

오류 표시가 나타나 있는 경우가 있습니다.

 

 

특히 웹페이지를 블록 지정하여 복사했을 때 이런 사항이 잘 나타납니다.

 

 

그런데 셀 서식에서 표시형식을 아무리 바꾸어도 변하지 않던 셀을 클릭하고

 

F2를 눌러 수정으로 들어간 다음 아무것도 하지 않고 Enter만 누르면

 

숫자 형식으로 변하는 경우가 있습니다.

 

몇 개 되지 않을 경우에는 F2누르고, Enter 누르고, 반복해서 사용할 수 있겠지만

 

이런 사항이 수십, 수백개라면 어떻게 될까요?

 

 

​

이런 문제점을 VBA를 이용하여 해결해 보도록 하겠습니다.

 

 

 

아주 간단하니깐 잘 따라해 보세요 ^^

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

위과 같이 숫자 오류가 있다는 예시를 두고 진행을 해 보도록 하겠습니다.

 

 

 

 

 

 

 

 

​

 

 

 

 

우선 숫자인데 문자형식으로 나타는 파일을 열고

Alt+F11 또는 [개발도구]-[Visual Basic]을 눌러

 

Visual Basic Editor 창이 나타나게 합니다.

 

 

 

 

 

 

​

[삽입]-[모듈] 메뉴를 누르면 오른쪽에 코드 입력창이 나타납니다.

 

​

 

 

 

 

 

 

 

 

 

 

 

​입력창에 다음과 같이 코드를 입력합니다.

코드입력

▼

Sub 바꾸기()

 

 

   

    Do While ActiveCell <> ""   '(현재 선택한 셀이 공백여부를 확인, 공백이 아니면 실행)

        a = ActiveCell   '(현재 셀의 값을 a변수에 입력)

        ActiveCell = a   '(a변수의 값을 현재 셀에 다시 입력)

        ActiveCell.Offset(1, 0).Select   '(현재 셀에서 아래로 한칸 이동)

    Loop   '(반복)

 

 

 

 

 

 

 

​

 

 

 

 

 

​

다음과 같이 숫자임에도 불구하고 문자로 나타났던 숫자들이

다시 숫자 형식으로 변경되는 것을 확인할 수 있습니다. 

 

​

 

 

 

 

 

 

 

 

 

 

 

 

1.  VBA 창을 열어줍니다 (Alt+F11) 

2. [삽입]-[모듈]을 클릭합니다.

3. 코드입력창에 위에 적어놓은 "코드"를 입력해줍니다.

4. VBA창을 꺼줍니다.

5. 잘못 입력되어있는 셀 클릭 후 Alt + F8을 눌러 [매크로]창을 열어줍니다.

6. VBA에서 만들어 놓은 매크로를 선택 후 [실행]을 클릭합니다.