在EXCEL中,如何每隔一行插入一行标题.docVIP

在EXCEL中，如何每隔一行插入一行标题 你可以这样： 1、在第一列前再插入一列， 2、在A1内输入1，向下以序列填充，到你的数据最后一行； 3、在数据最后一行开始输入1.5，也以序列填充，行数和你的数据行一样多。在这些行里写入标题； 4、选定A列所有数字及你的数据，排序，以A列为关键字排序，无标题行。 排序后 ? 5、删除A列，搞定。 设原数据简略如图： ?将公式=IF(MOD(ROW(),2)+1,OFFSET(工资表!$A$1,(MOD(ROW()-1,2)0)*INT(ROW()/2),COLUMN(B1)-2),)复制后粘贴到空白表的“A1”单元格，对准右下角，光标成“+”状时，按住左键向下拖，接着向右拖，如图： 如何在EXCEL中,打印时每行都插入第一行标题 [?标签：excel,?一行标题,?xsl?] 箭似光阴 2011-01-21 19:17 你好，打印工资表,需要在每一个人的工资前加入一行标题,该怎么做?我不想一直复制----插入粘贴 满意答案 好评率：100% 使用添加辅助列的方法，首先在数据区域后面复制多行标题，然后添加辅助列，为数据区域行添加序号1、2、3……，为后面的标题行区域添加序号0.5、1.5、2.5……，最后按照序号列升序排序，并删除序号列即可。 您已经评价过！ 好:5 您已经评价过！ 不好:0 您已经评价过！ 原创:0 您已经评价过！ 非原创:0 匿名 回答采纳率:44.8% 2011-01-16 22:42 箭似光阴的感言： 这个我知道，但是速度不是很快 满意答案 好评率：100% 可以这么做...打开工具栏上的宏.. 打开VBA编辑器.. 在左边找到对应该的表格...名称...我的是《机械报审表》双击它..弹出窗口如下图， ? 粘贴代码如下： ? Sub 标题输入() ??? ActiveCell.Offset(2, 0).Rows(1:1).EntireRow.Select??? Selection.Insert Shift:=xlDown??? ActiveCell.Offset(-2, 0).Rows(1:1).EntireRow.Select??? Selection.Copy??? ActiveCell.Offset(2, 0).Rows(1:1).EntireRow.Select??? ActiveSheet.PasteEnd Sub ? 完成后关闭VBA编辑器..回到表格上来.. ? 打开工具....宏.. ? ... ? 设置下快捷键...我设置的是 CTRL+k(小写的k） 完成了确定....开始操作...选中标题的那一行.....之后就按快捷键CTRL+k了...每按一次就插入标题一次...要更快的话就看你能按多快了....效果就如下图..第一张是选中还没有按之前的.. 第二张是完成的效果图 您已经评价过！ 如果在A4纸上打印工资条，不妨在工资表当前页面设置工资条页面，并选择“项端标题”试试！工资条页面太小（4×21cm，一纸A4可以打7张），在“开始/控制面板/打印机”窗口中，执行“文件/服务器属性”进行“设置/添加/应用”即可在Excel中使用所设置的页面了。