如何自动隐藏空白行？？？

bumiu

     小白求助：
如表，在第E8行至E106行中，如何自动隐藏E8至CQ8中所有的空白行，表中未冻结区域中，若某行从E列至CQ列全为空白，则自动隐藏该行，否则显示该行。
用筛选功能不尽如意，想做两个按钮，但不会VB......

请高手帮忙，感激涕零

正弋老兵

用自动筛选。。。。。。。。。。。。。

佛山小老鼠

Sub test1()
    Dim i As Integer
    For i = 8 To 106
   If Application.WorksheetFunction.CountA(Range(Cells(i, 5), Cells(i, 95))) = 0 Then
   Rows(i).EntireRow.Hidden = True
   End If
   Next i
End Sub


Sub TEST2()
Range("E8:CQ106").EntireRow.Hidden = False
End Sub

长安布衣

注意：不要输入空格
隐藏行_根据条件.rar (17.28 KB, 下载次数: 788)

2011-2-27 10:27 上传

点击文件名下载附件

佛山小老鼠

这个贴我回复过了,又发了,请参考
http://club.excelhome.net/thread-686181-1-1.html
提醒楼主不要发重复贴,会的人会回答你的

[ 本帖最后由 佛山小老鼠 于 2011-2-27 10:36 编辑 ]

bumiu

谢谢高手，就是这种效果，
二楼的方法不行，我之前是用月筛选，有些不该隐藏的隐藏了，我又加了一行，用周筛选，还是达不到效果；他现在教我用日筛选，他想弄死我.................... 不过还是谢谢了


高手，那两个按钮想移下位置怎么操作？

bumiu

谢谢高手，谨记教诲

bumiu

谢谢你，是这种效果

佛山小老鼠

原帖由 bumiu 于 2011-2-27 11:42 发表
谢谢高手，就是这种效果，
二楼的方法不行，我之前是用月筛选，有些不该隐藏的隐藏了，我又加了一行，用周筛选，还是达不到效果；他现在教我用日筛选，他想弄死我.................... 不过还是谢谢 ...

把光标放到那个按钮上,光标变成四个箭头方向,按住鼠标左键不放,拖动鼠标到你要放的地方去,就可以了

bumiu

多谢