作者:乔山办公网日期:
返回目录:excel表格制作
sub 计算()
for i = 1 to range("A65536").end(xlup).row()
cells(i,3)=cells(i,1)+cells(i,2)
next
end sub
Sub 求和()
For i = 1 To [a65536].End(3).Row
Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
Next
End Sub
sub 计算()for i = 1 to range("A65536").end(xlup).row" />
Sub 求和()
For i = 1 To [a65536].End(3).Row
Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
Next
End Sub