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

bestbbz123 · 发表于 2024-5-17 09:29

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

沈默00 · 发表于 2024-5-17 09:38

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

bestbbz123 · 发表于 2024-5-17 09:40

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

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

bestbbz123 · 发表于 2024-5-17 09:40

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

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

风雨声点滴 · 发表于 2024-5-17 09:49

测试有效
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