涉及数据的删除,希望你在删除前,先备份一下。 代码的解释如下(按行): 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