複数のテキストをExcelスプレッドシートのセルで複数のセルに解析していますか？

Question

セルに色付きのテキスト文字列があります。以下に示すように、複数のセルの色に基づいて解析したいと思います。色は繰り返しています。私は解決策を含むこのフォーラムにすでに掲載されているソリューションのいくつかを使用しようとしました：How to extract text based on font color from a cell with text of multiple colors and separate multiple words by Delimiter?。しかし、私が望む結果を達成できなかった。助言がありますか？

Answer 1

これが右に見えます。

Option Explicit 

Function udf_Color_Piece(rTXT As Range, Optional iNDX As Long = 1) 
    Dim c As Long, seg As Long, clr As Long 

    seg = 0 
    clr = -9 
    udf_Color_Piece = vbNullString 

    For c = 1 To Len(rTXT.Text) 
     With rTXT.Characters(Start:=c, Length:=1) 
      If clr <> .Font.Color Then 
       seg = seg + 1 
       clr = .Font.Color 
       If seg > iNDX Then Exit Function 
      End If 
      If seg = iNDX Then 
       udf_Color_Piece = udf_Color_Piece & .Text 
      End If 
     End With 
    Next c 

End Function 

あなたのコードを投稿し、あなたがそれを実行すると、本当にあなたを助けるために行くために多くの人を与えるものではありません「しかし、私が望む結果を達成できなかった」何が起こるかを教えする必要が