使用VBA从excel读取数据并按一定方程计算，并将计算结果逐行保存到单元格内，

Question

例如D1，E1的平方计算后保存置A9,B9，再计算D2， E2将这个保存到A9，B9. D1和E1的结果移动到A10,B10,以此类推，D3,E3计算后保存到A9，B9.D2和E2的结果保存到A10,B10, D1和E1的结果保存置A11,B11（图1）。我只想要保存3组结果，计算D4,E4时就把D1,E1的结果删除，计算D5E5时就再把D2E2的结果删除，结果一直保存3组，（图2)小白求大神给段代码，，，万分感谢

Answer 1

你说的这么复杂，我理解为取D、E两列的最后三行，计算结果保存在A11、A10、A9三行里面，因为中间那些计算了又删除的的操作是多余的吧，那么代码为：

x=range("D65536").end(xlup).row
for i=1 to 3
    for j=1 to 2
        cells(12-i,j) = cells(x+i+1,j+3) * cells(x+i+1,j+3)
    next j
next i