Excel 当单元格内容为空时自动隐藏本行

宏代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target.Value = "" Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

首先鼠标右击该工作表名称标签，点击“查看代码”命令，随即自动进入到VBA代码编辑窗口，然后我们将上面的一段VBA代码复制粘贴到VBA代码编辑窗口中，最后关闭VBA窗口，回到Excel工作表即可。

 

VBA代码中灵活修改的2处地方：

 

代码位置①

 

If Target.Column = 3 Then

 

此句代码中的数字“3”，代表录入的数据位于第几列。

 

代码位置②

 

If Target.Value = "0" Then

 

此句代码中的数据“”，代表什么都没有，整行执行隐藏命令。