나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 스나이퍼 (nukeem)

추천:  2
파일:     조회:  2702
제목:   유령문자등을 없애고 숫자만 표시하는 사용자정의 함수
　 　 　
　 Sub 공백제거숫자화()
Dim 범위 As Range, 행%, 컬럼%
Set 범위 = Selection
    With 범위
        For 행 = 1 To .Rows.Count
            For 컬럼 = 1 To .Columns.Count
                범위(행, 컬럼).Formula = 유령문자공백제거(범위(행, 컬럼).Value)
            Next 컬럼
        Next 행
    End With
End Sub
Public Function 유령문자공백제거!(문자$)
Dim 순번%, 문자길이%, 공백없는문자$, 숫자만조합$
공백없는문자 = Trim(문자)
문자길이 = Len(공백없는문자)
For 순번 = 1 To 문자길이
  If IsNumeric(Mid(공백없는문자, 순번, 1)) Or Mid(공백없는문자, 순번, 1) = "." Then
    숫자만조합 = 숫자만조합 & Mid(공백없는문자, 순번, 1)
  End If
Next 순번
If 숫자만조합 = "" Then
  유령문자공백제거 = 0
Else
  유령문자공백제거 = CSng(숫자만조합)
End If
End Function

졸따구님의 소스를 좀 편리하게 만들어봤어요.
바꿀 영역을 선택하구 매크로를 실행하면 바꿔줘요.
함수보다 매크로가 편해서 --;;
 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2003-09-04(13:33)
최종수정일 : 2003-09-04(13:33)
　


 ◎ 관련글
  제 목   작성자   날짜
고수님! 급합니다.. 솔이 2003-09-04
유령문자등을 없애고 숫자만 표시하는 사용자정의 함수 졸따구 2003-09-04
◎ 유령문자등을 없애고 숫자만 표시하는 사용자정의 함수 스나이퍼 2003-09-04