[求助改分享]：怎样才能不打印Excel中的空白页？

gouweicao78

Excel表中编了公式，并且可以通过条件格式等方法处理，得到“输入数据之后指定区域才会有边框”等效果。大家喜欢把编好的公式通过下拉复制，往往一拉就好多页，结果问题出现了：
打印预览试试看，后面没有数据没有边框显示的竟然也要打印，就是空白页，该怎样消除呢？（一般如果没这样编公式的话Excel就会自动设置打印区域，即无内容的页不会打印）。

CCHH138

用VBA可以做到楼主的要求

gouweicao78

CCHH138：能具体说明一下吗？我对VBA不懂，但很想学。
我还是觉得可能有更简单的，比如设置之类的，可就是找不到，所以才来求助。


求助改成分享了，昨晚找到别人的一个设置动态打印区域的东东，调试到半夜（唉，我是菜鸟，没办法那么快领悟）终于弄好了。
在插入〉定义〉名称 输入一个叫Print_Area的自定义名称，值为下面这一串：
=OFFSET(Sheet1!$A$1,,,MAX((Sheet1!$A$1:$A$10000<>"")*ROW(Sheet1!$A$1:$A$10000)),MAX((Sheet1!$1:$2<>"")*COLUMN(Sheet1!$1:$2)))
表示打印区域的行数由第一列最大行数（不含假空，即" "按过一次以上空格键，如果公式得到的""不算假空）决定，列数由第一、二行的最大列数决定。
可以修改自己设定调试，比如我的A列是空白的（很多人会在表格前面加一列很窄的作空隙用），offset函数第一个参数（即sheet1！$A$1）返回值是0，若$A$1不为空，返回值为1才能以此为参照，我简单的把公式里面的A改成B列都不行，最后没办法，就在A列里输了if(B1="",""," ")然后下拉，嘿嘿还真起到作用了。
至于“列数由第一、二行的最大列数决定”也可以改，比前面方便多了，直接在MAX((Sheet1!$1:$2<>"")这里把$2改成你想要的行。也就是说如果你的表格中有数据的列数最多的是第10行的话，你就把$2改成$10以上，可能这个数越大就会影响速度，所以一般还是不要太大了。