Excel也能实现稿纸样式

数字办公

江娉:有一次在朋友那儿看到他把网上复制的文字粘贴到Excel中,很快就变成了一篇作文稿纸样式的论文,这令我大为吃惊。以前我只知道用Word中的“稿纸向导”或用WPS Office中的“稿纸方式”来实现。我想请教《电脑报》的专家,Excel是如何实现这种神奇功能的。

办公专家陈邓新:借助Excel的单元格和功能强大的函数可以实现你所看到的效果。为了使打印出来的稿纸更美观,我们在每个字和每一行之间留些空白,这些“空白”都是用空白的列和空白的行来实现的,通过调整列宽和行高,使其更符合稿纸版面的要求。

假设从第2行第1个单元格(A2)开始(第1行是论文标题)显示汉字,每行显示的汉字(含标点和英文字符)为16个,在A2单元格中输入公式“=IF(AND(MOD(COLUMN()+1,2)=0,MOD(ROW(),2)=0),MID(text!$A$1,COLUMN()-(COLUMN()-2)/2+(ROW()-2)*8,1),"")”。然后将公式复制到该行的最后一个单元格(AE2)中,最后选中A2:AE2,将公式向下复制到该页的其他行中。

公式的含义是:如果指定单元格所在的行为偶数行且所在列为奇数列,则从TEXT工作表的A1单元格中按顺序逐个提取汉字(含标点和英文字符)并填充到当前的单元格中,否则显示空白。由于文字是隔行显示的,所以公式中的“(ROW()-2)*8”表示每行为16个汉字,如果每行要显示20个汉字只需将“(ROW()-2)*8”改为“(ROW()-2)*10”就可以了。

在TEXT工作表的A1单元格中粘贴录入好的论文按回车,此时回到“稿纸”工作表就可以看到最终的稿纸效果了(见图)。

18-f11-1-1.jpg

小提示:如果要在每段文字前留空,请在粘贴的文字中通过插入空格来实现。