Excel如何合并多列数据到新列并区分设置不同文字颜色

普通公式仅能返回单元格内容，无法实现同一单元格内不同文本的格式差异化，可通过以下两种方案实现需求：

方案1：VBA脚本（全版本兼容，适配2万行批量处理） #

• 操作步骤：
  1. 按下Alt + F11打开VBA编辑器，右键点击当前工作簿名称，依次选择「插入」-「模块」
  2. 将以下代码粘贴到模块编辑区，根据你的实际模板、列号修改对应参数后按F5运行即可

Sub 批量生成带格式CARD()
    Dim lastRow As Long, i As Long
    Dim preText As String, midText As String ' 按需修改固定文本内容
    Dim var1 As String, var2 As String ' 存储其他列的变量内容
    Dim varStart As Long
    
    ' 示例参数：数据从第2行开始，变量分别在A、B列，CARD输出到D列，按需调整列号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    preText = "固定前缀文本：" ' 替换为你模板里的固定前缀
    midText = " 中间固定文本：" ' 替换为你模板里的中间固定内容
    
    For i = 2 To lastRow
        var1 = Cells(i, "A").Value
        var2 = Cells(i, "B").Value
        ' 拼接完整CARD内容
        Cells(i, "D").Value = preText & var1 & midText & var2
        ' 设置第一个变量为红色
        varStart = Len(preText) + 1
        Cells(i, "D").Characters(varStart, Len(var1)).Font.Color = vbRed
        ' 设置第二个变量为红色，有更多变量可按相同逻辑扩展
        varStart = Len(preText & var1 & midText) + 1
        Cells(i, "D").Characters(varStart, Len(var2)).Font.Color = vbRed
    Next i
End Sub

• 注意事项：
  • 运行前请备份原文件，避免数据误操作
  • 2万行数据运行时长通常在10秒以内，无明显卡顿

方案2：365/2021版本无代码方案 #

• 操作步骤：
  1. 先使用拼接公式生成完整CARD文本，示例公式：="固定前缀："&A2&" 固定内容："&B2，下拉填充所有行
  2. 若变量内容有统一识别规则，可选中CARD列后使用「查找替换」的格式匹配功能，批量定位变量文本段，统一设置字体为红色。变量无统一规则时不推荐该方案

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