일반 내장함수로는 무리가 있을듯 하네요..!!
이미 좋은 답변을 받았군요... 걍 참고만 하시면되실듯 합니다.
사용자정의 함수를 이용한 방법입니다.
Function ChgToiTem(rng As Range)
Dim k As Long, c As Long
Dim rngD As Range, R As Range
Dim ss As String, str As String
On Error Resume Next
Application.Volatile
ss = rng.Value
ChgToiTem = ""
With Sheets("변환목록")
Set rngD = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
For Each R In rngD
k = InStr(ss, R.Value)
If k > 0 Then
c = R.Offset(, 1)
str = Mid(ss, k + 1, c)
If IsNumeric(str) Then
ChgToiTem = R & str
Exit For
End If
End If
Next
End With
End Function
복사본 숫자_추출_질문.xlsm
첫댓글 라고님 답변 감사합니다.. 공부 하겠습니다.
정말 엑셀은 재미있으면서도...제 머리를 뜨겁게 만드는군요...대단 하십니다