一、excel筛选打印的问题
方法一:调整最后一行的行高
1、先按班级排序
2、设置单元格格式→对齐:垂直对齐:选靠上;自动换行前面打钩。
3、如果有标题行,文件→页面设置→工作表:顶端标题行 和 左端标题行 输入相应
内容。
4、假如你班级所在列在B列,在一空列如G列的G2输入下面公式:
=IF(B2<>B3,REPT(CHAR(10),50-COUNTIF(B:B,B2)),""),向下填充
本步说明:在班级的最后一个单元格例用回车将行高加高,将下一班的调到下一页,其中50是假定你每页可打的条目数,根据需要更改
另注意,行高最大值为409,(正常的12号字体约27行)需要补充的超过这个数可
能会出问题。
5、格式→行→最合适的行高
预览一下,有什么效果?
方法二,用宏:
1、先按班级排序
2、假如你的班级在B列(第二列),如果不是,把代码中所有的2替换一下,把B65536的B替换为列标
工具→宏→宏:宏名:随便名个名如AAA,点击 创建,在光标处复制下列代码:
Dim i As Long, j As Long
ActiveWindow.View = xlPageBreakPreview
j = 1
For i = 3 To ActiveSheet.[B65536].End(xlUp).Row()
If ActiveSheet.Cells(i, 2) <> ActiveSheet.Cells(i - 1, 2) Then
Set ActiveSheet.HPageBreaks(j).Location = Range("A" & i)
j = j + 1
End If
Next i
ActiveWindow.View = xlNormalView
然后按F5运行
预览一下
二、Excel如何打印筛选出来的数据
1、第一步,打开Excel表,然后打开要筛选的数据表单,见下图,转到下面的步骤。
2、第二步,执行完上面的操作之后,单击进行筛选,见下图,转到下面的步骤。
3、第三步,执行完上面的操作之后,选择所有数据并按Ctrl
+ C复制,见下图,转到下面的步骤。
4、第四步,执行完上面的操作之后,打开一个新表,然后使用Ctrl
+ V粘贴,见下图,转到下面的步骤。
5、第五步,执行完上面的操作之后,按Ctrl
+ P以打开打印窗口,然后打印即可,见下图。这样,就解决了这个问题了。