从工作表中的一个单元格计算公式，并将结果粘贴到另一个不同工作表的另一个不同单元格中

Question

我知道如何对公式进行编码，但不知道如何使它们从一个工作表移动到另一个工作表

基本上这个想法是用户在一个工作表中键入数据，然后他们从同一个 excel 中在另一个工作表中获取公式的结果

Answer 1

假设公式=C6/C9放置在单元格C10中。

如果要使用VBA，则可以将以下代码放在具有公式的工作表下，并指定要进入的结果的工作表，如下所示：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet: Set ws = Sheets("Sheet2")
'declare and set the worksheet the data is to be copied into, amend the sheet name as required
If Target.Address = "$C$6" Or Target.Address = "$C$9" Then 'if anything changes in C6 or C9 in this sheet
ws.Range("E5").Value = Target.Parent.Range("C10") 'copy the value from cell C10 in this sheet to Sheet2 in cell E5
End If
End Sub

您也可以在没有VBA的情况下执行此操作，在单元格E2的Sheet5中，您还可以输入以下内容，并获得相同的结果：=Sheet1!C10

或者，您甚至可以在Sheet2 E5中输入要计算的实际公式：

=Sheet1!C6/Sheet1!C9