Subd1()
DimA&,B&,C&,D&,E&,x&
Forx=1ToRange("A65536").End(xlUp).Row
A=Cells(x,1)
B=Cells(x,2)
C=Cells(x,3)
D=Application.Quotient((A*B+C-70),A)
E=(A*B+C-70)ModA
Cells(x,4)=D
Cells(x,5)=E
Nextx
EndSub
Subd2()
'如果直接给单元格赋值,直接用这个代码
Dimx&
Forx=1ToRange("A65536").End(xlUp).Row
Cells(x,4)=Application.Quotient((Cells(x,1)*Cells(x,2)+Cells(x,3)-70),Cells(x,1))
Cells(x,5)=(Cells(x,1)*Cells(x,2)+Cells(x,3)-70)ModCells(x,1)
Nextx
EndSub