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

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的情况下执行此操作，在单元格E5的Sheet2中，您还可以输入以下内容并获得相同的结果：=Sheet1!C10

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

=Sheet1!C6/Sheet1!C9