EXCEL如果实现隐藏或删除空白页，跪求大神帮忙解决，万分感谢！

loboapple

大神们，有个打印的小问题希望能帮忙解决一下，万分感谢~~~

附件中excel文件里有2个表，一个是原表格，一个是最理想的效果。

希望实现的效果就是：点VB按钮，附件的测试文件内，原表格的第2页、第6页空白页自动隐藏或删除（注：空白页是没有规律的），可以不打印出来，我只需要打印有内容的页面，因为工作的原因，一个excel文档里面几百页，有近一半这样的空白页，平时是手动删除或隐藏很麻烦，希望高手们有帮忙帮忙解决一下，万分感谢了！

原表格（有7页）


最理想的效果（隐藏或删除了空白页，剩余5页）

看见星光

1. Sub t()
   
2.     Dim i As Long, lngFrow As Long, lngLrow As Long
   
3.     Dim rng As Range, cll As Range
   
4.     Cells.EntireRow.Hidden = False
   
5.     lngFrow = 1
   
6.     For i = 1 To ActiveSheet.HPageBreaks.Count
   
7.         lngLrow = ActiveSheet.HPageBreaks(i).Location.Row - 1
   
8.         Set rng = Rows(lngFrow & ":" & lngLrow)
   
9.         If Application.CountIf(rng, ">""") = 0 Then
   
10.             If cll Is Nothing Then
    
11.                 Set cll = rng
    
12.             Else
    
13.                 Set cll = Union(cll, rng)
    
14.             End If
    
15.         End If
    
16.         lngFrow = lngLrow + 1
    
17.     Next
    
18.     If Not cll Is Nothing Then
    
19.         cll.EntireRow.Hidden = True
    
20.     End If
    
21. End Sub

复制代码

loboapple

看见星光 发表于 2018-6-22 11:02

多谢大神，我试试看是不是我要的效果，万分感谢

loboapple

看见星光 发表于 2018-6-22 11:02

大神，你好，我试了下，好像不行啊，提示运行错误9，下标越界，我就是用附件里的【测试】文件试的，不知道大神是否也用测试文件测试过呢？谢谢！麻烦大神再看看是不是代码哪里还有完善的！如果可以，方便的话，最好把【测试】excel文件一起传上来，我学习一下，万分感谢~~

loboapple

看见星光 发表于 2018-6-22 11:02

大神，还有在线吗？能帮忙再看看吗？万分感谢

loboapple

有高手在线吗？帮忙看看啊，万分感谢~~

wang94103

loboapple 发表于 2018-6-27 17:44
有高手在线吗？帮忙看看啊，万分感谢~~

http://club.excelhome.net/thread-970853-1-1.html   看看这个能不能达到你要的效果

loboapple

wang94103 发表于 2018-6-28 10:59
http://club.excelhome.net/thread-970853-1-1.html   看看这个能不能达到你要的效果

没有效果，不过还是很感谢你的回答

chenjx80

把代码中的
For i = 1 To ActiveSheet.HPageBreaks.Count
改成
For i = 1 To ActiveSheet.HPageBreaks.Count - 1

loboapple

chenjx80 发表于 2018-6-28 19:25
把代码中的
For i = 1 To ActiveSheet.HPageBreaks.Count
改成

非常感谢大神的帮助，修改后确实可以了，万分感谢~~~