Excelのセルからフォントの色に基づいてテキストを抽出するにはどうすればよいですか？

以下のスクリーンショットに示すように、Excelの各セルに赤いテキストが含まれるデータリストがある場合、その赤いテキストのみを抽出する方法はご存知でしょうか？ここでは、Excelのセルからフォントの色に基づいてテキストを抽出するための迅速な方法をご紹介します。

各セルからフォントの色に基づいてテキストを抽出

各セルからフォントの色に基づいてテキストを抽出

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はテキストを抽出したいセルを指します）を入力し、Enterキーを押して必要なテキストを取得します。その後、オートフィルハンドルをドラッグして数式を目的の範囲に適用します。

これで、すべての赤いテキストが抽出されました。

ヒント: 上記のVBAコードでは、TextColor = RGB(255, 0, 0) のスクリプト内のRGB値を変更して、ニーズに合わせることができます。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

関連記事：

• Excelで太字のテキストのみを抽出する

• Excelで小数値を抽出する

• Excelでミドルネームを抽出する