本行

宏代码如下： Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 3 ThenIf Target.Value = "" ThenTarget.EntireRow.Hidden = TrueEnd IfEnd If ......