发布网友 发布时间:2022-04-21 05:45
共1个回答
热心网友 时间:2023-11-06 04:08
按下ALT+F11,双击左边的"SHEET1"(假设你的功能是在SHEET1中完成的),复制下面代码退出.只要你在这一行中输入0,这行就会自动隐藏.
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
A
=
Target.Row
If
WorksheetFunction.CountIf(Range(A
&
":"
&
A),
0)
>
0
Then
Range(A
&
":"
&
A).Select
Selection.EntireRow.Hidden
=
True
End
If
End
Sub