CLIEN

본문 바로가기 메뉴 바로가기 폰트크기변경 색상반전보기
톺아보기 공감글
커뮤니티전체 C 모두의광장 F 모두의공원 I 사진게시판 Q 아무거나질문 D 정보와자료 N 새로운소식 T 유용한사이트 P 자료실 E 강좌/사용기 L 팁과강좌 U 사용기 · 체험단사용기 W 사고팔고 J 알뜰구매 S 회원중고장터 B 직접홍보 · 보험상담실 H 클리앙홈
소모임전체 전체소모임 임시소모임 ·굴러간당 ·아이포니앙 ·MaClien ·가상화폐당 ·자전거당 ·내집마련당 ·방탄소년당 ·안드로메당 ·나스당 ·골프당 ·사과시계당 ·레고당 ·육아당 ·콘솔한당 ·주식한당 ·일본산당 ·냐옹이당 ·축구당 ·방송한당 ·클다방 ·바다건너당 ·퐁당퐁당 ·소셜게임한당 ·땀흘린당 ·IoT당 ·앱개발자당 ·시계찬당 ·덕질한당 ·디아블로당 ·갖고다닌당 ·찰칵찍당 ·라즈베리파이당 ·소시당 ·이륜차당 ·걸그룹당 ·LOLien ·패셔니앙 ·임시소모임 ·야구당 ·리눅서당 ·헌팅한당 ·블랙베리당 ·영화본당 ·개판이당 ·여행을떠난당 ·하스스톤한당 ·뽀록이당 ·가죽당 ·WOW당 ·소리당 ·캠핑간당 ·총쏜당 ·농구당 ·창업한당 ·스팀한당 ·클래시앙 ·e북본당 ·빨콩이당 ·맛있겠당 ·윈태블릿당 ·요리한당 ·심는당 ·파도탄당 ·미드당 ·블록체인당 ·나혼자산당 ·FM한당 ·스타한당 ·보드게임당 ·심야식당 ·그림그린당 ·리듬탄당 ·히어로즈한당 ·인스타한당 ·어학당 ·물고기당 ·공대시계당 ·VR당 ·도시어부당 ·볼링친당 ·오른당 ·차턴당 ·땅판당 ·X세대당 ·배드민턴당 ·곰돌이당 ·활자중독당 ·문명하셨당 ·쿠키런당 ·대구당 ·이브한당 ·KARA당 ·Mabinogien ·MTG한당 ·노키앙 ·적는당 ·소풍간당 ·품앱이당 ·Sea마당 ·SimSim하당 ·미끄러진당 ·터치패드당 ·트윗당 ·WebOs당 ·윈폰이당
© CLIEN.NET
공지 잠시후 00:30분부터 약 20분간 서버 점검이 진행될 예정입니다 더보기
l

팁과강좌

PC/모바일 [엑셀]-특정 문자열을 기준으로 앞뒤분리하여 숫자 추출

2
몽치미
4,818
2018-08-10 18:25:41 118.♡.255.193

[엑셀]-특정 문자열을 기준으로 앞뒤분리하여 숫자 추출 사진

금요일 오후 급한 일들은 다 처리한 관계로 혹시라도 도웅이 될까하여

그동안 아주 오랬동안 쉬고? 있었던 엑셀 팁을 오랜만에 올려봅니다.


엑셀을 데이터베이스로 잘 이용해 오셨으면 관계없는 일인데 기존의

문서 자료를 복사하여 엑셀에 붙여넣기해서 자료가 편집된 경우에는

매우 귀찮은 일들을 반복적으로 해야할 경우가 있습니다.


예를 들어 기존 자료에서 한 셀에 23/45와 같이 데이터가 묶여있으면

23과 45를 분리하여 가공해야 하는 경우에 데이터가 몇 개 뿐이면

그냥 입력이나 수정하거나 조금 수식을 쓰면 되는데 몇천, 몇만이 되고

23 / 45와 같이 사람에게 보기 좋게 입력된 것을 추출할려면 고생이

이만저만이 아니고 바쁜데 시간은 시간대로 가고 ...


그래서 인터넷에 많이 널린? 수식을 이용한 추출이 아닌 함수를 이용해서

엑셀에 그냥 아래 Module를 추가하고 함수 사용하듯이 사용하면 됩니다.



엑셀 여시고 Alt+F11눌러서 삽입 -> 모듈을 선택하고 아래 코드 복사


' 아래는 /로 구분된 경우이니 다른 것이면 이 부분만 수정하여 사용

' 앞부분 숫자 추출

Public Function split_to_front(tstr As Range) As Integer


    split_to_front = Val(Mid(tstr, 1, InStr(tstr, "/") - 1))


End Function


'뒷부분 숫자 추출

Public Function split_to_rear(tstr As Range) As Integer


    split_to_rear = Val(Mid(tstr, InStrRev(tstr, "/") + 1))

    

End Function


그런데 23 / 45같은 경우는 "/"를 " / "로  바꾸어 사용하면 되지만 

이것들이 23/45, 23 / 45와 같이 혼재할 경우에는 함수 하나로는 부족해서

편법으로 제작, 앞뒤로 한개씩 더 잘라내면 됩니다. 아래 수식 참고


Public Function split_to_front_space(tstr As Range) As Integer


    split_to_front_space = Val(Mid(tstr, 1, InStr(tstr, "/") - 2))


End Function


Public Function split_to_rear_space(tstr As Range) As Integer


    split_to_rear_space = Val(Mid(tstr, InStrRev(tstr, "/") + 2))

    

End Function



그냥 잘 사용하십시오. 위 방법과 다르게 여러가지가 글 쓰면서도 생각나지만

사용하시는 분이 아이디어를 내어 잘 활용하세요.

몽치미님의 게시글 댓글
SIGNATURE
하려는 자는 아이디어를 찾고 피하려는 자는 핑계거리를 찾는다.

빈이네 살아가는 이야기 : http://www.be4u.kr/
서명 더 보기 서명 가리기
  • 주소복사
  • Facebook
  • Twitter
2명
댓글 • [10] 을 클릭하면 간단한 회원메모를 할 수 있습니다.
새로운 댓글이 없습니다.
  • 이미지 최대 업로드 용량 10 MB / 업로드 가능 확장자 jpg,gif,png,jpeg
    지나치게 큰 이미지의 크기는 조정될 수 있습니다.
목록으로
글쓰기
글쓰기
목록으로 댓글보기 이전글 다음글
아이디·비번 찾기 회원가입
이용규칙 운영알림판 도움말 버그신고
고객지원
  • 게시물 삭제 요청
  • 쪽지 신고
  • 제보 및 기타 제안
개인정보처리방침 책임의 한계와 법적고지 청소년 보호정책
©   •  CLIEN.NET