How to extract text based on font color from a cell with text of multiple colors

Question

I have a column of data (A). The data in each cell in column (A) is half one color and half another color. For example, let\'s say the first portion of the character strin

Answer 1

You can use this user defined function:

Function redPart(x As Range) As String
    Dim res As String
    With x
        For i = 1 To Len(.Value)
            ' red = RGB(255, 0, 0)
            If .Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
                res = res & .Characters(i, 1).Text
            End If
        Next
    End With
    redPart = res
End Function

just write in cell B1 formula =redPart(A1) and drag it down.

Result: