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

如果您在Excel的每個單元格中都有一個帶有紅色文本的數據列表，如下面的屏幕截圖所示，您知道如何僅提取紅色文本嗎？ 現在，我將介紹一種快速的方法來解決難題，該難題根據Excel中單元格中的字體顏色提取文本。

根據字體顏色從每個單元格中提取文本

根據字體顏色從每個單元格中提取文本驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

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

1。 按 Alt + F11鍵 鍵一起打開Microsoft Visual Basic for Applications窗口。

2。 點擊 插頁 > 模塊 并將下面的VBA代碼復制到彈出的窗口中。

VBA：基于字體顏色提取文本

Function GetColorText(pRange As Range) As StringUpdatebyExtendoffice20220621Dim xOut As StringDim xValue As StringDim i As LongDim TextColorTextColor = RGB(255, 0, 0) colorindex RGBxValue = pRange.TextFor i = 1 To VBA.Len(xValue)If pRange.Characters(i, 1).Font.Color = TextColor ThenxOut = xOut & VBA.Mid(xValue, i, 1)End IfNextGetColorText = xOutEnd FunctionCopy

3.然后保存并關閉對話框，并選擇數據列表旁邊的空白單元格，鍵入此公式 = GetColorText（A1） （A1表示要從中提取文本的單元格），按 輸入 鍵以獲取所需的文本，然后拖動自動填充手柄將公式填充到所需的范圍。

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

Tips:：在上面的VBA代碼中，您可以將這個腳本TextColor = RGB(255, 0, 0)中的顏色rgb更改為其他以滿足您的需要。

相關文章：

僅在Excel中提取粗體文本

在Excel中提取十進制值

在Excel中提取中間名

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel