如何從Excel中的單元格中基於字體顏色提取文本？ - ExtendOffice

在Excel中，您只能使用定義的函數根據字體顏色提取文本。

... Text. For i = 1 To VBA.Len(xValue). If pRange.Characters(i, 1).Font.Color = vbRed Then. Note:TheotherlanguagesofthewebsiteareGoogle-translated.BacktoEnglish登入  登錄到您的帳戶登入記住我忘記密碼？or重設密碼為您的帳戶，請輸入電子郵件地址。

驗證碼將發送給您。

當您收到驗證碼，你將可以選擇為您的帳戶新密碼。

提交註冊  orExtendOffice商品OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook下載OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook如何安裝或卸載最終用戶許可協議購買OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook資源Excel的技巧和竅門Word的技巧和竅門Outlook的技巧和竅門Excel函數Excel公式Excel圖表Outlook教程聯絡我們在線教程 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook新聞和更新 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook搜尋搜索更多關於我們我們的團隊用戶感言我們的客戶說得到幫助？ 檢索許可證丟失許可證？報告錯誤錯誤報告論壇在論壇中發帖聯絡我們通過電子郵件與我們聯繫語言简体中文繁體中文FrançaisDeutschPortuguêsItalianoČeština‎DanskNederlandsالعربيةՀայերենΕλληνικάMagyarBahasaIndonesiaGaelige日本語한국어PolskiRomânăРусскийSlovenščinaEspañolSvenskaไทยTürkçeУкраїнськаTiếngViệtCymraegExtendOffice如何從Excel中的單元格中基於字體顏色提取文本？如果您在Excel的每個單元格中都有一個帶有紅色文本的數據列表，如下面的屏幕截圖所示，您知道如何僅提取紅色文本嗎？現在，我將介紹一種快速的方法來解決難題，該難題根據Excel中單元格中的字體顏色提取文本。

根據字體顏色從每個單元格中提取文本Office選項卡在Office中啟用選項卡式編輯和瀏覽，並使您的工作更加輕鬆...閱讀更多...免費下載...KutoolsforExcel解決了您的大部分問題，並將您的生產力提高了80%重用任何東西：將最常用或最複雜的公式，圖表等添加到您的收藏夾中，並在將來快速重用它們。

超過20種文字功能：從文本字符串中提取數字；提取或刪除部分文字；將數字和貨幣轉換為英文單詞。

合併工具：將多個工作簿和工作表合二為一；合併多個單元格/行/列，而不會丟失數據；合併重複的行和總和。

分割工具：根據價值將數據分割成多個工作表；一本工作簿可轉換為多個Excel，PDF或CSV文件；一列到多列。

跳過粘貼隱藏/過濾的行；計數與求和按背景色;向多個收件人批量發送個性化電子郵件。

超級過濾器：創建高級過濾方案並應用於任何工作表；分類按星期，日期，頻率等篩選用粗體，公式，註釋...300多項強大功能；適用於Office2007-2019和365;支持所有語言；在您的企業或組織中輕鬆部署。

閱讀更多...免費下載...根據字體顏色從每個單元格中提取文本驚人！在Excel中使用高效選項卡，例如Chrome，Firefox和Safari！每天節省50％的時間，並減少數千次鼠標單擊！在Excel中，您只能使用定義的函數根據字體顏色提取文本。

1。

按Alt+F11鍵鍵一起打開MicrosoftVisualBasicforApplications窗口。

2。

點擊插入>模塊並將下面的VBA代碼複製到彈出的窗口中。

VBA：基於字體顏色提取文本FunctionGetColorText(pRangeAsRange)AsString 'Updateby20141105 DimxOutAsString DimxValueAsString DimiAsLong xValue=pRange.Text Fori=1ToVBA.Len(xValue) IfpRange.Characters(i,1).Font.Color=vbRedThen xOut=xOut&VBA.Mid(xValue,i,1) EndIf Next GetColorText=xOut EndFunction 3.然後保存並關閉對話框，並選擇數據列表旁邊的空白單元格，鍵入此公式=GetColorText（A1）（A1表示要從中提取文本的單元格），按Enter鍵以獲取所需的文本，然後拖動自動填充手柄將公式填充到所需的範圍。

現在您可以看到所有紅色文本均已提取。

小技巧： ：在上面的VBA代碼中，如果您需要從單元格中提取黑色文本，則可以更改顏色名稱顏色=vbRed至顏色=vb黑色.相關文章：僅在Excel中提取粗體文本在Excel中提取十進制值在Excel中提取中間名最佳辦公效率工具KutoolsforExcel解決了您的大部分問題，並將您的生產力提高了80%重用:快速插入複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...選擇重複或唯一行;選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...提取文字，添加文本，按位置刪除，刪除空間;創建和打印分頁小計；在單元格內容和註釋之間轉換...超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...結合工作簿和工作表;根據關鍵列合併表；將數據分割成多個工作表;批量轉換xls，xlsx和PDF...300多項強大功能。

支持Office/Excel2007-2019和365。

支持所有語言。

在您的企業或組織中輕鬆部署。

完整功能30天免費試用。

60天退款保證。

閱讀更多...免費下載...採購... Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。

在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。

將您的工作效率提高50%，每天為您減少數百次鼠標點擊！閱讀更多...免費下載...採購...  10CommentsLoginSortbyNewestBestPopularNewestOldestSaysomethinghere...symbolsleft.YouareguestLoginNoworpostasaguest,butyourpostwon'tbepublishedautomatically.PostLoadingcomment...Thecommentwillberefreshedafter00:00.Topostasaguest,yourcommentisunpublished.prudwi·3yearsago Thecodeworkswelliftheredstringsarecontinuous.Incasetheyareseparatedinthesourcecell,theyaregluedtoeachotherinoutputcell.Imeanthereisnospaceintheoutputiftheredtextstringsareawayfromeachother.Canyoupleaseprovideasolutionforthis?ReplyTopostasaguest,yourcommentisunpublished.Tim·5monthsago Trythis,itshouldworkFunctionGetColorText(pRangeAsRange)AsString'UpdatedtogetmultipleDimxOutAsStringDimxValueAsStringDimiAsLongDimwasRedAsBooleanxValue=pRange.TextFori=1ToVBA.Len(xValue)IfpRange.Characters(i,1).Font.Color=vbRedThenxOut=xOut&VBA.Mid(xValue,i,1)wasRed=TrueElseIfwasRed=TrueThenwasRed=FalsexOut=xOut&";"EndIfNextGetColorText=xOutEndFunctionReplyTopostasaguest,yourcommentisunpublished.Prudwi·1monthsago Thanksatonitworkedperfectlywell.YouareasaviorTim:-) ReplyTopostasaguest,yourcommentisunpublished.KazamRaza·3yearsago thanks,veryinterestingcode.ReplyTopostasaguest,yourcommentisunpublished.Bobbo69·3yearsago dimenticavoiohoExcel2010ReplyTopostasaguest,yourcommentisunpublished.Bobbo69·3yearsago Buonasera,graziemilleun'ottimafunzione.Peròhounproblema,quandovalnelfoglioedinseriscoes.=GetColorText(A1)mirestituisceilvaloregiustoperòcomeriavvioilfilemidaerrore#VALORE!,sepoiclicco2voltesopramidailvalorecorrettoecosìvia.chepossofare?ReplyTopostasaguest,yourcommentisunpublished.JM·4yearsago Hey,ThanksfortheTip.WorksgreatwithRedandBlack. WhatifIwanttoparse"Purple"?changingitvbPurpledoesnotwork. ThanksReplyTopostasaguest,yourcommentisunpublished.Madhav·4yearsago Thecodeworkswelliftheredstringsarecontinuous.Incasetheyareseparatedinthesourcecell,theyaregluedtoeachotherinoutputcell.Imeanthereisnospaceintheoutputiftheredtextstringsareawayfromeachother.Canyoupleaseprovideasolutionforthis?ReplyTopostasaguest,yourcommentisunpublished.mj·5yearsago Hello,whenitriedusingvbBlue,itdidnotwork.Helpplease?Thanks!ReplyTopostasaguest,yourcommentisunpublished.amit·4yearsago Givethefontcolortotheexctbluecolor. Becausetherearemanytypeofbluecolor"lightblue,skyblue,darkblue" vbamatchonlyexctcolor.??????Reply商品 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook下載OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook如何安裝或卸載最終用戶許可協議購買 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook資源 Excel的技巧和竅門Word的技巧和竅門Outlook的技巧和竅門Excel函數Excel公式Excel圖表Outlook教程聯絡我們在線教程 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook新聞和更新 OfficeTabKutoolsforExcelKutoolsforWordKutoolsforOutlook搜尋搜索更多關於我們我們的團隊用戶感言我們的客戶說得到幫助？ 檢索許可證丟失許可證？報告錯誤錯誤報告論壇在論壇中發帖聯絡我們通過電子郵件與我們聯繫語言 简体中文繁體中文FrançaisDeutschPortuguêsItalianoČeština‎DanskNederlandsالعربيةՀայերենΕλληνικάMagyarBahasaIndonesiaGaelige日本語한국어PolskiRomânăРусскийSlovenščinaEspañolSvenskaไทยTürkçeУкраїнськаTiếngViệtCymraeg