|
涉及数据的删除，希望你在删除前，先备份一下。代码的解释如下（按行）：1.定义过程2.得到I列有数据的行数3.从1到R开始循环4.判断单元格的值，是否等于0，如果等于0，则：5.选中K行6.删除选中的行，下面的行自动上移7.行数自动减一8.结束判断9.结束循环10.结束过程补充：使用方法：1.按Alt+F8,或工具-宏-visual Basic 编辑器,进入VB编辑器2.在VB编辑器中,插入-类模块3.在类模块中,帖上如上代码4.关闭VB编辑器5.回到excel,按Alt+F8,执行该过程,或工具-宏-宏-执行6.OK... |
