excel ,VBA, 小小小菜鸟求很简单的赋值循环计算问题

将”结果“A列逐一赋值到“计算过程”A2，
返回值（“计算结果”B2，C2）回到"结果"B，C列
循环计算直到A列为0
将”sheet1“A列逐一赋值到“sheet2”A2，
返回值（“sheet2”B2，C2）回到"sheet1"B，C列
循环计算直到"sheet1"A列为0
第一次循环
sheet1!A2=sheet2!A2
等待2s
sheet2!B2=sheet1!B2
sheet2!C2=sheet1!C2
第二次循环
shet1!A3=sheet2!A2
等待2s
sheet2!B2=sheet1!B3
sheet2!C2=sheet1!C3
第n次循环
sheet1!An+1=sheet2!A2
等待2s
sheet2!B2=sheet1!Bn+1
sheet2!C2=sheet1!Cn+1
当sheet1！An=0或空结束计算

---

Sub fasf()
Dim n%, i%
Worksheets("sheet1").Select
n = Range("A65536"灶高毕隐芹).End(3).Row
With Worksheets("sheet2")
For i = 2 To n
.Cells(2, 1) = Cells(i, 1)
Application.Wait Now + TimeValue("0:00:2") '念孙等待2s
Cells(i, 2) = .Cells(i, 2)
Cells(i, 3) = .Cells(i, 3)
Next
End With
End Sub

---

描述再详细一些，最好能给出计算公式，或者结贴加QQ:375267128，我来帮你写

---

讲的是什么呀？晕

---