텍스트 문자열에서 대문자 또는 대문자로 시작하는 단어를 추출하는 방법은 무엇입니까?
텍스트 문자열 목록이있는 경우 이제 모든 대문자 만 추출하거나 셀에서 대문자로 시작하는 단어를 추출하려고합니다. Excel에서 어떻게 해결할 수 있습니까?
사용자 정의 함수를 사용하여 텍스트 문자열에서 대문자 추출
사용자 정의 함수를 사용하여 텍스트 문자열에서 대문자로 시작하는 단어 추출
사용자 정의 함수를 사용하여 텍스트 문자열에서 대문자 추출
다음 VBA 코드는 셀에서 대문자 만 추출하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.
1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
2. 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.
VBA 코드 : 텍스트 문자열에서 대문자 만 추출 :
함수 ExtractCap (Txt As String) As String 'Updateby Extendoffice
Application.Volatile Dim xRegEx As Object Set xRegEx = CreateObject ( "VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]"xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Set xRegEx = Nothing End Function
3. 그런 다음 코드를 저장하고이 코드를 닫은 다음 워크 시트로 돌아가 다음 공식을 입력합니다. = EXTRACTCAP (A2) 결과를 출력하려는 빈 셀에 넣은 다음 채우기 핸들을이 수식을 적용 할 셀로 끌어다 놓으면 모든 대문자가 한 번에 추출됩니다. 스크린 샷을 참조하십시오.
사용자 정의 함수를 사용하여 텍스트 문자열에서 대문자로 시작하는 단어 추출
텍스트 문자열에서 대문자로 시작하는 단어를 추출해야하는 경우 다음 VBA 코드가 도움이 될 수 있습니다.
1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭 한 후 다음 코드를 복사하여 모듈 창문.
VBA 코드 : 대문자로 시작하는 단어 추출 :
함수 StrExtract (Str As String) As String 'Updateby Extendoffice
Application.Volatile Dim xStrList As Variant Dim xRet As String Dim I As Long If Len (Str) = 0 Then Exit Function xStrList = Split (Str, "") If UBound (xStrList)> = 0 Then For I = 0 To UBound ( xStrList) If xStrList (I) = StrConv (xStrList (I), vbProperCase) Then xRet = xRet & xStrList (I) & ""End If Next StrExtract = Left (xRet, Len (xRet)-1) End If End 함수
3. 그런 다음 코드를 저장하고 코드 창을 닫고 다음 수식을 입력합니다. = StrExtract (A2) 데이터 옆의 빈 셀에 넣은 다음 채우기 핸들을 결과를 얻으려는 셀로 드래그하면 대문자로 시작하는 모든 단어가 추출됩니다. 스크린 샷을 참조하십시오.
최고의 사무 생산성 도구
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
- 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
- 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
- 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
- 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
- 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
- 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
- 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
- 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
- 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.
- Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
- 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
