Note: The other languages of the website are Google-translated. Back to English

 텍스트 문자열에서 대문자 또는 대문자로 시작하는 단어를 추출하는 방법은 무엇입니까?

텍스트 문자열 목록이있는 경우 이제 모든 대문자 만 추출하거나 셀에서 대문자로 시작하는 단어를 추출하려고합니다. 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일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (8)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,

이 공식에 감사드립니다. 그러나 my =EXTRACTCAP(A2)는 계속 오류와 함께 돌아옵니다.

도울 수 있니?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 소니아
위의 사용자 정의 함수는 내 Excel 통합 문서에서 잘 작동합니다. 어떤 Excel 버전을 사용합니까?
아니면 위의 코드를 복사하여 VBA 모듈에 붙여넣으셨습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
У вас так и написано "вставьте следующий код в модуль".
У меня тоже ошибка
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
у вас страница была открыта на русском языке? Удалите /ru из ссылки: https://www.extendoffice.com/documents/excel/4554-excel-extract-capital-letters.html#a1
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,

이 기능을 하나의 특정 워크시트에만 할당하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Nvm - 더 이상 필요하지 않음
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
jestem Excelowym laikiem, ale próbowałam postępować zgodnie z wytycznymi... oworzyłam alt+F11, insert->module i wstawiłam skopiowaną formułę. Przy próbie zapisu wywala mi błąd, coś o makrach... 도와주세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 하니아

문제를 더 자세히 알려주시겠습니까? 괜찮으시다면 여기에 스크린샷으로 문제를 삽입하세요.
감사합니다!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호