发布网友 发布时间:2022-04-23 14:20
共2个回答
热心网友 时间:2023-09-09 03:35
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 1) = "" Then Rows(i).Hidden = True '隐藏该行
Next
End Sub
这个的前提是以A列是不是空来判断。在表单上右键,查看代码,把代码复制进去就可以了。追问我用的是WPS,安装了VBA,但是查看代码那里灰色选不了,要怎么办?
追答
WPS我没有安装,你用EXCEL打开弄吧,或者参照EXCEL这样看下
,进入 后选你要隐藏的工作表,双击,输入代码
热心网友 时间:2023-09-09 03:35
选择要隐藏的行 然后右键 点隐藏就OK了 不能够一次性隐藏所有的必须要用手选择要隐藏的行。