Excel中使用CONCATENATE后如何为单元格内不同行设置不同字体？

阿华AIGC实验室

2026-5-29

关于Excel单元格内多行文本字体设置的解答

问题1：CONCATENATE拼接后，同一单元格不同行应用不同字体

首先要确认你用CONCATENATE拼接时，是通过CHAR(10)实现的单元格内换行（比如公式：=CONCATENATE(A2, CHAR(10), B2)），并且已经开启了单元格的「自动换行」功能（右键单元格→设置单元格格式→对齐→勾选「自动换行」）。

要给不同行设置不同字体，操作很简单：

双击目标单元格进入编辑模式（或者选中单元格后按F2）
用鼠标精准选中你要修改的那一行文本（比如拖动选中第一行的所有内容）
直接在顶部工具栏调整字体、字号、颜色等格式即可，其他行重复这个操作就行

问题2：是否存在更改Excel单元格内特定行字体的方法

当然有！不管你的单元格内容是手动输入的多行文本，还是通过函数拼接出来的，都可以单独设置某一行的字体格式，核心操作和上面一致：

进入单元格编辑模式（双击/F2）
选中目标行的文本内容
调整字体格式

如果需要批量处理大量单元格，手动操作效率太低，还可以用VBA宏来实现自动化。比如下面这个示例宏，能给选中单元格的第一行和第二行分别设置不同字体：

Sub FormatMultiLineFont()
    Dim targetCell As Range
    Dim textLines As Variant
    Dim firstLineLen As Integer
    Dim secondLineStart As Integer
    
    Set targetCell = Selection
    '按换行符拆分单元格内容
    textLines = Split(targetCell.Value, Chr(10))
    
    '设置第一行字体
    If UBound(textLines) >= 0 Then
        firstLineLen = Len(textLines(0))
        With targetCell.Characters(Start:=1, Length:=firstLineLen).Font
            .Name = "微软雅黑"
            .Size = 12
            .Color = vbBlack
            .Bold = True
        End With
    End If
    
    '设置第二行字体
    If UBound(textLines) >= 1 Then
        secondLineStart = firstLineLen + 2 '+2是跳过换行符（Chr(10)占1位）
        With targetCell.Characters(Start:=secondLineStart, Length:=Len(textLines(1))).Font
            .Name = "宋体"
            .Size = 10
            .Color = RGB(100, 100, 100)
            .Bold = False
        End With
    End If
End Sub

宏的使用方法：