Function extraction(strdata As String, intlen As Integer, startstr As String, endstr As String)
Dim strlen As Integer
Dim templen As Integer
Dim strtemp As String
startpt = Len(strdata) / 100 * intlen
strlen = Len(strdata)
strtemp = Mid(strdata, InStr(strlen - startpt, strdata, startstr) + 1, _
InStr(strlen - startpt, strdata, endstr) - InStr(strlen - startpt, strdata, startstr) - 1)
extraction = Application.WorksheetFunction.Trim(strtemp)
End Function
예) 가나다라마바사아자차카타파하 (한글)
예의 문자열이 A1에 위치했을때
=extraction(A1, 70, "(", ")") 이렇게 하시면 한글 이라는 글자만 추출됩니다.
첫번째 칸은 찾을대상
두번째 칸은 검색시작지점 (문자열의 70%지점부터)
세번재 칸은 검색할문자열시작부분
네번째 칸은 검색할문자열끝부분
입니다.
필요한신분이 있을지 몰라서 지인분 알려드리다가 만든건데 사용하실분은 쓰세요
적용방법은 ALT+F11을 누르면 Microsoft Visual Basic for Applications 라는 창이 뜨실겁니다.
메뉴창에서 삽입 누르시고 모듈을 클릭하면 작은 창이 뜹니다.
거기에 제가 올린 내용을 복사하셔서 불어넣기후 저장하시면 엑셀에서 사용이 가능합니다. | |
|
등록안내
