EXCEL中如何设置 列为0 行自动隐藏

如题所述

第1个回答  2012-04-19
例如,A:M列单元格中,只要有一个单元格为0,那么该行隐藏,代码如下:
Sub aa()
Dim i As Integer
For i = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.Product(Range("A" & i & ":M" & i)) = 0 Then
Rows(i).Hidden = True
End If
Next i
End Sub
打开VBE编辑器,复制粘贴此代码,运行后即可达到目的。
你可以根据实际区域情况修改上面的代码。本回答被提问者采纳
相似回答