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

Excel의 셀에서 글꼴 색상을 기반으로 텍스트를 추출하는 방법은 무엇입니까?

아래 스크린 샷과 같이 Excel의 각 셀에 빨간색 텍스트가있는 데이터 목록이 있고 빨간색 텍스트 만 추출하는 방법을 알고 있습니까? 이제 Excel의 셀에서 글꼴 색상을 기반으로 텍스트를 추출하는 퍼즐을 빠르게 해결하는 방법을 소개합니다.

문서 추출 텍스트 색상 -1

각 셀에서 글꼴 색상을 기반으로 텍스트 추출

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
  • 300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

화살표 블루 오른쪽 거품 각 셀에서 글꼴 색상을 기반으로 텍스트 추출

Excel에서는 정의 된 함수 만 사용하여 글꼴 색상을 기준으로 텍스트를 추출 할 수 있습니다.

1. 프레스 Alt + F11 키를 함께 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 클릭 끼워 넣다 > 모듈 다음 VBA 코드를 튀어 나온 창에 복사하십시오.

VBA : 글꼴 색상을 기반으로 텍스트 추출

Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
  If pRange.Characters(i, 1).Font.Color = TextColor Then
  xOut = xOut & VBA.Mid(xValue, i, 1)
  End If
Next
GetColorText = xOut
End Function

3. 그런 다음 대화 상자를 저장하고 닫은 다음 데이터 목록 옆에있는 빈 셀을 선택하고 다음 수식을 입력합니다. = GetColorText (A1) (A1은 텍스트를 추출하려는 셀을 나타냅니다), 엔터 버튼 키를 눌러 필요한 텍스트를 얻은 다음 자동 채우기 핸들을 끌어 원하는 범위로 수식을 채 웁니다.

이제 모든 빨간색 텍스트가 추출 된 것을 볼 수 있습니다.

문서 추출 텍스트 색상 -2

: 위의 VBA 코드에서 TextColor = RGB(255, 0, 0) 스크립트의 rgb 색상을 필요에 맞게 다른 색상으로 변경할 수 있습니다.


관련 기사 :


최고의 사무 생산성 도구

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 하단
코멘트 (14)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, vbBlue를 사용해 보았을 때 작동하지 않았습니다. 도와주세요? 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
exct 파란색에 글꼴 색상을 지정합니다.
파란색의 종류가 많기 때문에 "하늘색, 하늘색, 진한 파란색"
vba는 추출 색상만 일치합니다.????????
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
빨간색 문자열이 연속적이면 코드가 잘 작동합니다. 소스 셀에서 분리된 경우 출력 셀에서 서로 접착됩니다. 빨간색 텍스트 문자열이 서로 떨어져 있으면 출력에 공백이 없음을 의미합니다. 이에 대한 해결책을 제시해 주시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이봐, 팁 주셔서 감사합니다. 빨간색과 검은색과 잘 어울립니다.
"보라색"을 구문 분석하려면 어떻게 합니까? vbPurple을 변경하면 작동하지 않습니다.
감사
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Buonasera, grazie mille un'ottima funzione. Però ho un problema, quando val nel foglio ed inserisco es. = GetColorText(A1) 고객 지원 서비스를 제공합니다. 체포소 요금?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel 2010의 dimenticavo
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 매우 흥미로운 코드입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
빨간색 문자열이 연속적이면 코드가 잘 작동합니다. 소스 셀에서 분리된 경우 출력 셀에서 서로 접착됩니다. 빨간색 텍스트 문자열이 서로 떨어져 있으면 출력에 공백이 없음을 의미합니다. 이에 대한 해결책을 제시해 주시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것을 시도하십시오. 작동해야합니다.
함수 GetColorText(pRange As Range) As String
'업데이트되어 여러
Dim xOut을 문자열로
Dim xValue를 문자열로
오랫동안 어둡게
Dim wasRed As 부울
x값 = pRange.Text

i = 1인 경우 VBA.Len(xValue)까지

pRange.Characters(i, 1).Font.Color = vbRed인 경우
xOut = xOut & VBA.Mid(xValue, i, 1)
wasRed = 참
ElseIf wasRed = True then
wasRed = 거짓
xOut = xOut & ";"
END IF

다음

GetColorText = xOut
최종 기능

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
덕분에 완벽하게 잘 작동했습니다. 당신은 구세주 팀입니다 :-) 
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여전히 파란색 텍스트(#1166BB)를 추출할 수 없습니다. 필요한 색상 텍스트를 얻기 위해 Hex: #1166BB를 사용하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Robert E Perez, 저는 VBA 코드를 업데이트했습니다. 이제 rgb 코드로 컬러 텍스트를 가져오는 것을 지원합니다. 코드를 다시 시도할 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
쉼표로 구분된 셀에 특정 텍스트가 있고 각 텍스트에 색상이 있습니다. 구분자 기능을 사용하는 동안 텍스트의 글꼴 색상을 유지할 수 없습니다. 도움을 주셔서 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, jdhjjd, 귀하의 질문을 명확하게 이해하지 못합니다. 셀에서 특정 텍스트를 추출하고 아래 스크린샷과 같이 글꼴 색상을 유지하시겠습니까?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color.png
또는 셀을 분할하고 각 텍스트 글꼴 색상을 유지하시겠습니까?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color-2.png
아직 코멘트가 없습니다

Follow Us

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