excel如何赋值计算并计算得到结果
在B1单元格内的数据，通过一系列的计算后结果会表现在B4单元格内，方程很复杂，并不是一个公式，不方便输入，但是B1 的值变化了以后B4的值也会相应变化，我只是举个例子。现在在D列中有一系列的数据，想要得到把数据放入到B1单元格后计算得到的B4单元格的数据，并想把这些数据放入到E列中对应的单元格中。请教大家这个该怎么办？我手动在B2格子内填入D列中的任何一个数据，B4格子就会自己得到一个计算的数据，我就想把这个数据列在E列中，而不要我一个一个数据去手动填写再复制粘贴。
第1个回答 2019-04-11
你的计算过程到底有没有输入Excel文件中呢？
如果没有输入，那你在B1输入数据，B4也无法得到数据。
既然B4可以得到结果，那就说明你的计算过程无论多复杂，都已经输入在文件中了，既然都输入了，把这个计算公式复制到E列就可以了，引用单元格修改为D列就可以了。
很简单的事情，不要故意复杂化。追问
如果没有输入，那你在B1输入数据，B4也无法得到数据。
既然B4可以得到结果，那就说明你的计算过程无论多复杂，都已经输入在文件中了，既然都输入了，把这个计算公式复制到E列就可以了，引用单元格修改为D列就可以了。
很简单的事情，不要故意复杂化。追问
不好意思可能是我没有说清楚，第一张图片我只是举个例子，麻烦您看一下实际的图片。
追答你就是从B1到B4经历了很多计算过程，不是在一个公式里，而是经过好多个公式，那也道理是一样的啊，我的图片里的随便写的几个公式，公式向后拖动就好了，第一行输入原始数据，下面的公式拖动，就得到最下面一行的结果了。
第2个回答 2019-04-11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" Then
X = Range("E65536").End(xlUp).Row
Cells(X + 1, "e") = [B4]
End If
End Sub
If Target.Address = "$B$2" Then
X = Range("E65536").End(xlUp).Row
Cells(X + 1, "e") = [B4]
End If
End Sub
vba单元格事件
可以完成
B2输入 数据，B4通过计算得到结果，这个结果依次排列到E列
复制代码到代码窗口，关闭代码窗口即可
第3个回答 2019-04-11
没看到你的具体要求是啥？单纯赋值可以手动一个一个赋值也可以用vba程序进行，至于计算结果可以考虑用函数sum或用vba实现。
第4个回答 2019-04-11
用单元格坐标代替数值
第5个回答 2019-04-11
写代码可以实现
相似回答