求助：如何通过公式实现Excel单元格内容格式的完全同步

普通公式（比如=H2）只能同步单元格的数值或文本内容，没法同步字体、颜色、单元格格式这类样式，所以要实现和复制粘贴完全一致的自动同步效果，得用VBA事件来实现。

具体操作步骤： #

1. 右键点击目标工作表的标签（比如Sheet1），选择「查看代码」，打开VBA编辑器。
2. 在弹出的代码窗口中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监听H列的单元格变动
    If Not Intersect(Target, Me.Range("H:H")) Is Nothing Then
        ' 同步对应I列的内容
        Target.Offset(0, 1).Value = Target.Value
        ' 同步格式
        Target.Copy
        Target.Offset(0, 1).PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 可选：处理手动修改格式的情况，切换单元格时同步格式
    If Not Intersect(Target, Me.Range("H:H")) Is Nothing Then
        Target.Offset(0, 1).Value = Target.Value
        Target.Copy
        Target.Offset(0, 1).PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
    End If
End Sub

关键说明： #

• 这段代码会绑定在当前打开的工作表上，只有该工作表的H列单元格内容或格式变动时，才会自动同步到右侧I列的对应单元格。
• 保存文件时，要选择「Excel启用宏的工作簿（.xlsm）」格式，否则宏会失效。
• 如果需要同步其他列，把代码里的H:H改成目标列（比如A:A），Offset(0,1)改成目标列和源列的偏移量（比如源列是A，目标列是C，就改成Offset(0,2)）。

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