Excel特定颜色文本提取技术问询：如何复制单元格红色文本至其他单元格及修改自定义函数（UDF）实现需求

问题1：如何单独复制红色文本到另一个单元格？ #

最便捷的方式是使用自定义函数（UDF），你已经提供了一个基础版本，我们只需要稍作修改就能满足需求，甚至可以扩展到提取任意颜色的文本。

问题2：修改现有UDF以支持提取特定颜色文本 #

你现有的函数硬编码了只识别红色（vbRed），我们可以把颜色改成可配置的参数，让函数更灵活。这里提供两个实用的修改版本：

版本1：直接指定颜色值（适合熟悉VBA颜色常量或RGB值的用户）

这个版本允许你直接传入目标颜色的代码，比如vbRed、vbBlue，或者自定义RGB值：

Function ExtractColoredText(Rng As Range, TargetColor As Long) As String
    Dim X As Long, S As String
    S = Rng.Text ' 先获取源单元格的全部文本
    For X = 1 To Len(S)
        ' 只保留和目标颜色一致的字符，其他字符替换为空格（换行符除外）
        If Rng.Characters(X, 1).Font.Color <> TargetColor Then
            If Mid(S, X, 1) <> vbLf Then Mid(S, X, 1) = " "
        End If
    Next
    ' 整理结果：去掉多余空格，同时修复换行符前后的空格问题
    ExtractColoredText = Replace(Replace(Application.Trim(S), " " & vbLf, vbLf), vbLf & " ", vbLf)
End Function

用法示例：

• 提取A1单元格中的红色文本：=ExtractColoredText(A1, vbRed)
• 提取A1单元格中RGB(0,255,0)的绿色文本：=ExtractColoredText(A1, RGB(0,255,0))

版本2：通过参考单元格指定颜色（更直观，适合普通用户）

如果你不想记颜色代码，可以选一个带有目标颜色的单元格作为参考，函数会自动读取该单元格的字体颜色：

Function ExtractTextByColorCell(Rng As Range, ColorRefCell As Range) As String
    Dim TargetColor As Long
    TargetColor = ColorRefCell.Font.Color ' 获取参考单元格的字体颜色
    Dim X As Long, S As String
    S = Rng.Text
    For X = 1 To Len(S)
        If Rng.Characters(X, 1).Font.Color <> TargetColor Then
            If Mid(S, X, 1) <> vbLf Then Mid(S, X, 1) = " "
        End If
    Next
    ExtractTextByColorCell = Replace(Replace(Application.Trim(S), " " & vbLf, vbLf), vbLf & " ", vbLf)
End Function

用法示例：
假设A1是源单元格，B1是带有你要提取的颜色的单元格，输入公式：=ExtractTextByColorCell(A1, B1)

如何使用这些自定义函数？ #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧项目窗口中，右键点击你的工作簿名称 → 选择「插入」→「模块」
3. 将上面的任意一段代码粘贴到新模块中
4. 回到Excel工作表，像使用普通函数一样输入公式即可

注意事项 #

• 这个函数只识别单元格内单个字符的字体颜色，如果是单元格填充色的话需要调整判断逻辑（如果需要可以告诉我）
• 如果你使用的是Excel 365，确保宏功能已启用（文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置 → 启用所有宏，或按需求选择）

内容的提问来源于stack exchange，提问作者barbieprincess