엑셀의 셀에 문자랑 숫자랑 섞여있을때 숫자만 복사하기

엑셀에 문자랑 숫자랑 섞여있을때 숫자만 취한다.

아래의 함수를 Alt + F11 누르면 매크로 편집가능한데,...

모듈로 들어가 아래의 함수를 추가하면

엑셀에서 사용자 정의 함수를 만들 수 있다.

사용예 ) =Num(셀번호)

 

Function Num(str As String) As String

Dim i As Integer
Dim intLen As Integer
Dim strTemp As String

intLen = Len(str)

For i = 1 To intLen

If IsNumeric(Mid(str, i, 1)) Then

strTemp = strTemp + Mid(str, i, 1)

End If

Next i

Num = strTemp

End Function