咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

内容导航:


一、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以打开打印窗口,然后打印即可,见下图。这样,就解决了这个问题了。