텍스트 숫자(문자열 숫자)를 숫자로 일괄 변경 VBA
텍스트로 된 숫자 즉 문자열이 숫자인 경우에 일괄 숫자로 변경하는 VBA 코드입니다.
사용의 편의성을 위해 변경할 범위를 좀 더 편하게 지정하도록 했습니다.
빨간색으로 된 부분만 변경해서 사용하면 됩니다.
Sub TextNumber2Number()
Dim rngC As Range
Dim rngAll As Range
Dim rngCh
Application.ScreenUpdating = False '// 화면 업데이트 (일시) 중지
rngCol = "D" '// 열지정
sRow = 2 '// 데이터 시작행 설정
Set rngAll = Range(Cells(sRow, rngCol), Cells(Rows.Count, rngCol).End(3)) '// 범위지정
'Set rngAll = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) '// 시트 전체 지정
On Error Resume Next
For Each rngC In rngAll
'If IsNumeric(rngC) Then rngC = Val(rngC) '// 에러 발생함
If IsNumeric(rngC) Then rngC = Format(rngC, "#") '// 정상처리됨
Next rngC
Set rngAll = Nothing
MsgBox "변환완료"
End Sub
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 셀 지우기 (0) | 2015.03.23 |
|---|---|
| 엑셀 행높이 자동 설정 and VBA 를 이용한 행높이 자동 설정 (0) | 2015.01.02 |
| 고급 Split 함수 사용법 (0) | 2014.10.31 |
| [VBA기초] 틀리기 쉬운 사소한 실수 (0) | 2014.10.02 |
| [VBA기초] 좌우공백 제거 카운트 (0) | 2014.09.07 |
Link2Me