项目场景:
如何从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