电子表格EXCEL中如何删除I列数值=0的行?

1.EXCEL中如何删除I列数值=0的行?

涉及数据的删除，希望你在删除前，先备份一下。

代码的解释如下（按行）：

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

2.如何删除excel中全是0的一列

1、按alt+F11打开VBE

2、例如，A:G列单元格中，只要有一个单元格为0，那么该行隐藏，代码如下：

Sub aa()

Dim i As Integer

For i = 1 To [a65536].End(xlUp).Row

If WorksheetFunction.Product(Range("A" & i & ":G" & i)) = 0 Then

Rows(i).Hidden = True

End If

Next i

End Sub

打开VBE编辑器，复制粘贴代码，运行后即可达到目的。

3.如何删除excel中全是0的一列

1、按alt+F11打开VBE

2、例如，A:G列单元格中，只要有一个单元格为0，那么该行隐藏，代码如下：

Sub aa()

Dim i As Integer

For i = 1 To [a65536].End(xlUp).Row

If WorksheetFunction.Product(Range("A" & i & ":G" & i)) = 0 Then

Rows(i).Hidden = True

End If

Next i

End Sub

打开VBE编辑器，复制粘贴代码，运行后即可达到目的。