Excel中每一行添加出现表头

Excel中每一行添加出现表头一共有以下三个解决方案1.写一个宏根据源数据生成“工资单”工作表2.用一个比较复杂的公式来生成3.使用Word配合，用“邮件合并”功能实现第三种方法比较简单,而且可以很好的控制格式,推荐使用,在这里先解释,建议先看看Word中关于邮件合并的帮助引用第一步：建立数据库新建一个Excel电子表格，将每个职工的工资结构输入表格(注意不能保留标题行，但是不要省略表格中的表头，以免邮件合并时找不到合并域名。在使用Excel工作簿时，必须保证数据文件是数据库格式，即第一行必须是字段名，数据行中间不能有空行等。这样可以使不同的数据共享，避免重复劳动，提高办公效率。)，保存名为“x月工资.xls”后即可关闭以备后用。第二步：建立工资单表格新建一个Word文档（可以将页面设置成横向），将新建电子表格的表头复制过来成为1行数列的无数据表格，在表格最后的表格内按“tab”键插入1行（然后在表格下方按回车键一次或两次，方便打印后裁剪）。保存为“x月工资.doc”。第三步：邮件合并1.在刚建立的“x月工资.doc”文档中，选择菜单栏的“工具/信函和邮件/显示邮件合并工具栏”，则出现“邮件合并工具栏”。（再选择“工具/自定义/命令/（在类别中选择）邮件合并/（在命令中选择）/插入合并域”将“插入合并域”拖入“邮件合并工具栏”。）2.在“邮件合并工具栏”中点击“打开数据源”按钮，选择“+连接到新数据源.odc”，在出现打开文件对话框中找到并打开刚保存的Excel电子表格“X月工资.xls”，点击“打开”会弹出的对话框中点击所需数据源，这时你会发现在工具栏中“插入合并域”处于激活状态。3.把光标置于要插入相应项目的位置，点击“插入合并域”下拉菜单(下拉菜单中的相应选项与“x月工资.xls”表格中的标题行是一一对应的)，然后单击下拉菜单中的相应选项，直至操作完毕。4.在“邮件合并工具栏”中有“设置文档类型”，选择“目录”类型，（不要选“普通word文档”）点击确定。最后点击“合并到新文档”按钮，你会收到意想不到的效果每位员工的工资记录都成了一个新文档，试试吧！下面介绍公式法:引用先观察思考原数据分布第1行是标题第2,3,4,5,.行是数据观察思考目标数据分布第1,4,7,10,行是标题第2,5,8,11,行是数据第3,6,9,12,行是空行即，当前行号除以3的余数为1的时候，是标题当前行号除以3的余数为2的时候，是数据其它（只剩除以3余数为0的情况了）是空行标题行数据直接引用数据表的A$1，因为每次行号是固定的，所以用绝对引用数据行数据需要进行偏移2,5,8,11,除以3，取整，结果分别是0,1,2,3,对应数据表2,3,4,5,我们用相对于数据表第1行的偏移，那就应该分别是1,2,3,4也就是说，相对于数据表第1行的偏移量是INT(ROW()/3)+1引用就是OFFSET(A$1,INT(ROW()/3)+1,0)注意，列偏移为0，即列不偏移这样，把上述各部分组合起来，得到工资表A1的公式=IF(MOD(ROW(),3),OFFSET(Sheet2!$A$1,(MOD(ROW()-1,3)0)*ROUND(ROW()/3,),COLUMN(Sheet2!A2)-1),)为了大家看清楚，我分成多行来写=IF( MOD(ROW(),3),OFFSET(Sheet2!$A$1, (MOD(ROW()-1,3)0)*ROUND(ROW()/3,), COLUMN(Sheet2!A2)-1), )然后把A1的公式向右复制给B1-E1，生成第一行数据再把第一行从A1-E1的公式向下复制到人数3行，即得到工资表最后介绍用宏的方法实现:引用下面是全部代码:Sub 加插表头()Dim i As IntegerDim endrow As IntegerDim hrstar As IntegerDim hrend As Integerendrow = Range(a65536).End(xlUp).Rowhrstar = InputBox(请输入表头开始行)hrend = InputBox(请输入表头结束行)i = hrend + 2DoIf i endrow Then Exit DoRows(hrstar & : & hrend).SelectSelection.CopyRows(i & : & i).SelectSelecti