巧用Excel分栏

╃→紾乄悕← · 发表于 2012-6-6 16:27

打印时单栏打印很浪费纸张，利用分栏可以使单栏分为多栏利于打印。
打开要分栏的工作表，按住Ctrl键拖动“成绩工作表”复制出一张“成绩工作表（2）”，并重命名为“分栏”

2010-12-31 12:26 上传
下载附件 (79.82 KB)

在“分栏”中按Ctrl+A全选并删除数据，得到一张格式一样的空表

2010-12-31 12:26 上传
下载附件 (37.44 KB)

根据需要调整第4列的宽度，然后选中A1

1复制，再选中第一行右击“选择性粘贴”，选择“列宽”，确定，把A1:D1的列宽都应用到所有列

2010-12-31 12:26 上传
下载附件 (31.83 KB)

在A1输入公式=if(A2="","",成绩!$A1)，在A2非空时显示“成绩”的标题A1否则为空，同理，复制公式到B1，C1

2010-12-31 12:26 上传
下载附件 (46.5 KB)

2010-12-31 12:26 上传
下载附件 (46.62 KB)

在A2中输入公式=if(INDIRECT("成绩!A"&ROW()+INT(COLUMN()/4)*COUNT($D

D))="","",INDIRECT("成绩!A"&ROW()+INT(COLUMN()/4)*COUNT($D:$D)))

2010-12-31 12:26 上传
下载附件 (53.4 KB)

【ROW()+INT(COLUMN()/4)*COUNT($D:$D)计算当前单元格在原表的行号，由INDIRECT函数按行，列引用单元格数据，再用if判断引用的单元格为空时显示为空，COUNT($D:$D)自动统计每页行数，/4为原表格的行数3+1列分割用的空列】，并复制到B2，C2

2010-12-31 12:26 上传
下载附件 (57.79 KB)

在D2输入1作为计算行数，设置字体为背景色，这里时白色，以隐藏它

2010-12-31 12:26 上传
下载附件 (59.07 KB)

选中A2:D2向下拖动填充柄复制到25行，即显示每栏25行

2010-12-31 12:26 上传
下载附件 (65.26 KB)

最后选中A1:D25复制，再选中1到25行进行粘贴即可生成所有分栏表格

2010-12-31 12:26 上传
下载附件 (154.4 KB)

双击显示大图

上面的公式让超出原表记录的分栏表格不显示，但表格线还在，得设置条件格式让空表格自动隐藏，选中1到25行，单击“开始”选项卡的“条件格式”--“突出显示单元格规则”--“其他规则”，在“单元格值”下拉列表中选择“空值”，按“格式”按钮设置单元格格式边框为无，确定，在没有数据的区域就不会显示边框了

2010-12-31 12:26 上传
下载附件 (48.26 KB)

2010-12-31 12:26 上传
下载附件 (119.25 KB)

打印时要是行数太多太少直接删除插入即可，但是由于公式存在，即使是空表格也会打印，所以得选中打印区域后在打印界面设置指定范围，才能打印有内容的分栏表格