请教大神，如何将部分标色的内容完整引用？

bestbbz123

如图所示，如何将左侧部分标红的内容，完整地引用到右侧单元格。
谢谢各位大神！！！

沈默00

这个要VBA了，函数识别不了字体的颜色

bestbbz123

沈默00 发表于 2024-5-17 09:38
这个要VBA了，函数识别不了字体的颜色

那请问大大知道VBA该用什么代码吗

bestbbz123

沈默00 发表于 2024-5-17 09:38
这个要VBA了，函数识别不了字体的颜色

是不是换到VBA那个板块发帖会好一些

风雨声点滴

测试有效
Sub ExtractNonDefaultColorChars()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim char As String
    Dim i As Integer
    Dim result As String
    Set ws = Worksheets("Sheet1")
    Set rng = ws.Range("B12")       '此处修改单元格范围
    For Each cell In rng    '循环
        result = ""
        For i = 1 To Len(cell.Value)
            char = Mid(cell.Value, i, 1)
            If cell.Characters(i, 1).Font.Color <> RGB(0, 0, 0) Then
                result = result & char
            End If
        Next i
        Range("C12") = result   '此处修改输出单元格范围
    Next cell
End Sub

沈默00

算了，我写一下吧

沈默00

试一下，...不过提取过来的字体颜色我没有改，，，

longwin

bestbbz123

沈默00 发表于 2024-5-17 10:13
算了，我写一下吧

非常感谢！！！

bestbbz123

longwin 发表于 2024-5-17 10:14

非常感谢！！！