낭만소방관

split으로 해도 되는데정규식으로 해도 쉽게 끝낼 수 있는데꾸역꾸역 Replace를 사용해보고 싶어서. 정규식 설명이 잘 되어있는 블로그- http://blog.naver.com/asaph16/220465400967 ------------------------------------------------------------------------------------------------------------------------------ http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=261951302 블루(^^)그레이(^^) 이렇게 한 셀에 있는 걸 색상II블루(^색상II그레이(^ 이렇게 결과로 받고 싶습니다 두번째"^" 앞 까지요..

한글만 삭제하는 정규식 매크로 Sub Macro() Dim rnG As Range Dim rngD As Range Set rngD = Columns("D").SpecialCells(2) 'D열에 있는 데이터 With CreateObject("Vbscript.regexp") .Global = True .Pattern = "[가-힇]" '한글은 전부 For Each rnG In rngD If .test(rnG) Then rnG = .Replace(rnG, "") '한글 삭제 Next rnG End With End SubColored by Color Scriptercs

정규식으로 패턴을 찾아 단위항목명에 상응하는 영문약어명으로 바꿔주는 매크로정신이 산만해서 코드도 산만하다.간단하게 끝낼 것을 억지로 배열에 넣는다고...ㅋㅋㅋ

한 셀에 승패 라는 글자가 막 있고연속된 글자를 8글자씩 패턴으로 잡았을 때2개 이상 패턴이 발생한 것을 출력해주는 정규식 1. Dictionary를 이용해 8글자의 패턴을 고유값만 추출2. 추출된 8글자의 패턴을 정규식을 이용해 일치하는 항목을 추출하여 2개 이상 일치하는 내용을 배열에 삽입

띄어쓰기 없이 한줄로 나열된 주소를 시도, 시군구, 읍면동으로 세분화 해서 출력해주는 정규식시흥시, 구로구 같이 '시, 구' 와 지역명이 겹치는 경우를 위해 만들었다. 기존 자료를 삭제하고 화살표를 클릭하면 결과가 출력된다.

파란 셀 안에 to 가 있고 by 도 있다.어디에도 있을 수 있다는 가정 하에.사용자정의 함수와 단추를 이용한 두가지 예제.정규식을 이용하여 to 와 by의 유무를 파악하였다. 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657Option ExplicitSub Macro() Dim v, smV Dim R%() Dim i%, j%, k% Dim intStart%, intEnd% Dim MySet As Object Dim rnG As Range ' 정규식 선언. 숫자만 걸러냄 With CreateObject("VBscript.Regexp") .Global = True .P..

많이 올라오는 질문 중 하나다음 사진처럼 글자와 숫자가 혼합되어 있는 셀을 계산하는 방법. 정규식을 이용하여 콤마와 한글을 없애고 숫자와 괄호와 연산기호만 남겨서Evaluate 를 이용하여 계산한다.

문자 부분과 괄호로 덮힌 숫자 부분을 나눈 후숫자 부분을 다시 나누는 정규식

다 짜고 나니 간단한데, 패턴 짜는데 애먹었네.추가금액 부분이 있는 경우도 있고 없는 경우도 있어서, 의외로 어려웠음.왜인지는 몰라도 $1이 이상하게 먹혀서submatches 로 해결함.아래는 매크로 적용결과와 코드.

세자리마다 콤마 삽입하는 정규식\w를 \d로 바꾸면 숫자의 세자리마다 콤마를 삽입한다