Excel---提取单元格中红色字符串

申明：主要参考https://www.extendoffice.com/zh-CN/documents/excel/2234-excel-extract-cell-color.html

1 需求

EXCEL单元格中有标红的字符串，需要将其从整个字符串中提取出来

2 方法

使用VBA，看起来是通过循环的方式提取的
贴个函数，更具体的可以参考https://www.extendoffice.com/zh-CN/documents/excel/2234-excel-extract-cell-color.html

Function GetColorText(pRange As Range) As String
    'Updateby20141105
    Dim xOut As String
    Dim xValue As String
    Dim i As Long
    xValue = pRange.Text
    For i = 1 To VBA.Len(xValue)
        If pRange.Characters(i, 1).Font.Color = vbRed Then
            xOut = xOut & VBA.Mid(xValue, i, 1)
        End If
    Next
    GetColorText = xOut
End Function

                              2019-04-29小雨 于 南京市栖霞区 紫东