如果是do循环，只需学习:的dowhil
使用列表框的方法。
0删除项目1
1删除第2项。
2删除第3项。
全部清空
如果您想跳过这个循环的其余部分，请添加
继续；
这样，这个循环中continu
下面的代码，数据在sheet1的a到d列，表头取第二行的前三个，复制到h列的setconncreateobject()provider；扩展属性excel8.0；datasourcethisworkbook.fullnamesqlselecttop3*from[sh:d]orderbysalesdesc[h3]。从记录集复制conn.execute(sql)setconnnothing[a2:d2]。复制[h2]。
submacro1()dimiasintegerdimjasintegerforj3orj5orj8然后fori9to13调用judg(i，j)nextiendifi14ifj4orj6orj8orj10orj12然后调用judg(i，j)i15ifj4orj8orj11然后调用judg(i，j)nextjendsubjudg(iasinteger，j)iftrim(cells(i，j))ortrim(cellss(i，j))0.01，则cells(i，j)跟踪endifendsub。
