728x90
convert TextNumber to Number
보통 시스템에서 뽑아낸 자료를 보면 숫자인데도 텍스트로 된 경우가 있다.
이런 경우에 일일이 다 변경하는 건 정말 짜증나는 일이다.
VBA 코드를 알면 정말 간단하게 해결할 수 있다.
Sub Convert_TextNumber_To_Number()
Dim rngC As Range
Dim rngTarget As Range
Set rngTarget = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
On Error Resume Next
For Each rngC In rngTarget
'If IsNumeric(rngC) Then rngC = Val(rngC) '// 에러 발생함
If IsNumeric(rngC) Then rngC =Format(rngC, "#") '// 정상처리됨
Next rngC
Set rngTarget = Nothing
MsgBox "작업완료"
End Sub
TextNumber_to_Number.vbs이 코드를 엑셀에서 Alt + F11 키를 누르면 나오는 창에서 삽입 - 모듈 을 누르세요.
그러면 창이 나오는데 거기에 붙여넣기를 합니다
그곳에서 F5키를 누르면 실행되고 변경된 결과를 순식간에 확인할 수 있습니다.
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] Number 를 문자(Text)로 한번에 변경 (0) | 2014.01.26 |
|---|---|
| [VBA기초] 색상을 이용한 결과값 구하기 (0) | 2014.01.26 |
| [VBA기초] InStr 를 이용한 셀 분리 (2) | 2014.01.19 |
| [VBA기초] 자체셀내의 중복여부 검사 (0) | 2014.01.11 |
| [VBA기초] 아스키코드 알아내기 (0) | 2014.01.10 |
Link2Me