如何从Excel中的另一个单元格引用格式和值？_excel中用什么公式引用另一个单元格的样式-CSDN博客

本文链接：https://blog.csdn.net/weixin_43947669/article/details/125446664

本文介绍了如何使用VBA在Excel中实现单元格格式和值的自动引用。通过在VBA编辑器中插入特定代码，可以设置当Sheet1的A1单元格值改变时，其格式和值会即时更新到Sheet2的E2单元格。这种方法有助于提高工作效率，特别是在需要同步多个单元格数据时。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

项目场景：

如何从Excel中的另一个单元格引用格式和值？

解决方式

使用VBA自动引用其他单元格的格式和值
通过运行以下VBA脚本，您可以自动从另一个单元格引用格式和值。

1.右键单击包含您需要引用的单元格的工作表选项卡，然后单击查看代码从右键单击菜单中。

2.在弹出 Microsoft Visual应用程序窗口，将下面的VBA代码复制并粘贴到“代码”窗口中。

VBA代码：另一个单元格的引用格式和值

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

备注：在代码中，Sheet1是工作表名称，其中包含您需要同时引用值和格式的单元格，表示单元格A1将自动引用到单元格E2。
从现在开始，当Sheet1的单元格A1中的值更改时，其值和格式将立即引用到单元格E2。

如果您需要复制到不同的工作表，请应用以下 VBA 代码。

解决方案：

提示：这里填写该问题的具体解决方案：

备注：在代码中， Sheet1 是原始工作表，Sheet2 是目标工作表，表示Sheet1单元格A1将自动引用到Sheet2单元格E2。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (Worksheets("Sheet2").Range("E2"))
        End If
    End With
End Sub