Excel：如何使链接单元格保留被引用单元格的文本格式？

原生Excel公式（比如=A1）仅能提取单元格的文本内容，无法同步其中的富文本格式（加粗、斜体、下划线等）。要实现整列格式同步，可参考以下可行方案：

方案1：VBA宏批量同步 #

这是批量处理最实用的方法，通过VBA复制源单元格的富文本内容到目标单元格：

批量同步已有数据的宏 #

打开Excel，按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub SyncRichTextFormat()
    Dim sourceCol As Range, targetCol As Range
    Dim cell As Range, targetCell As Range
    
    ' 自定义源列与目标列，示例为Sheet1的A列到B列，可按需修改
    Set sourceCol = ThisWorkbook.Sheets("Sheet1").Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    Set targetCol = ThisWorkbook.Sheets("Sheet1").Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    For Each cell In sourceCol
        Set targetCell = targetCol.Cells(cell.Row - sourceCol.Row + 1)
        targetCell.ClearContents
        targetCell.Value = cell.Value
        ' 逐字符同步格式
        For i = 1 To cell.Characters.Count
            With targetCell.Characters(i, 1).Font
                .Bold = cell.Characters(i, 1).Font.Bold
                .Italic = cell.Characters(i, 1).Font.Italic
                .Underline = cell.Characters(i, 1).Font.Underline
                .Color = cell.Characters(i, 1).Font.Color
                ' 如需同步字号、字体等其他格式，可添加对应属性
            End With
        Next i
    Next cell
End Sub

修改工作表名和列范围后，运行宏即可完成整列格式同步。

自动同步实时变更的宏 #

若需要源单元格内容或格式变更时，目标单元格自动同步，可在对应工作表的代码窗口中添加以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sourceCol As Range, targetCell As Range
    
    ' 仅监控A列的变更
    Set sourceCol = Me.Range("A:A")
    If Not Intersect(Target, sourceCol) Is Nothing Then
        Set targetCell = Me.Range("B" & Target.Row)
        targetCell.ClearContents
        targetCell.Value = Target.Value
        ' 逐字符同步格式
        For i = 1 To Target.Characters.Count
            With targetCell.Characters(i, 1).Font
                .Bold = Target.Characters(i, 1).Font.Bold
                .Italic = Target.Characters(i, 1).Font.Italic
                .Underline = Target.Characters(i, 1).Font.Underline
                .Color = Target.Characters(i, 1).Font.Color
            End With
        Next i
    End If
End Sub

这段代码会在A列单元格内容或格式修改时，自动同步到B列对应单元格。

方案2：手动格式刷（适合少量数据） #

选中源单元格，点击工具栏的「格式刷」按钮，再选中目标单元格或整列，可快速复制格式。但批量处理时效率极低，仅适合少量数据场景。

注意事项 #

• VBA宏需启用宏才能运行，保存文件时需选择.xlsm格式。
• 若源单元格有复杂格式（如不同字体、字号），可在VBA代码中添加对应属性实现同步。

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