在EXCEL中利用VBA做简单的求和程序(包括字符).doc

《在EXCEL中利用VBA做简单的求和程序(包括字符).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Subt()Dimi,j,aAsIntegerDimpAsStringi=1j=1DoUntilThisWorkbook.Worksheets("Sheet1").Cells(i,j)=""DoUntilThisWorkbook.Worksheets("Sheet1").Cells(i,j)=""IfIsNumeric(Sheet1.Cells(i,j))Thena=a+ThisWorkbook.Worksheets("Sheet1").Cells(i,j)Elsep=p+ThisWorkbook.Worksheets("Sheet1").Cells(i,j)EndIfj=j+

2、1Loopi=i+1j=1LoopMsgBox("a="&a&"p:"&p)EndSub