如何快速在excel表格中实现让每一工资条加上表头内容.docVIP

如何快速实现让每一条工资条加上表头内容 方法一、利用excel排序功能 请看下面图解： 1、假设下图为一张简单的工资表 2、在最后一列设辅助列，即将上图F列设为辅助列，在第二行输入数字1，剩下编码下拉填充实现，如下图 3、在最后一行，即上图第六行黏贴第一行（表头）内容，并将辅助列设为编码1.1，然后整行下拉复制，使表头个数和工资条数量一致，如下图 4、按照辅助列排序，操作步骤：菜单-数据-排序，如图 5，最终效果图见下图 6、如果不想还原工资表，就把辅助列那一列直接删掉，如果需要还原，就留下。 方法二、利用公式 下面是另一种实现此功能的公式，但是需在第一行，原有数据右边输入公式，例如： 在F1输入?=IF(MOD(ROW(),2)=1,A$1,OFFSET(A$1,ROW()/2,0)) 公式向右复制到J1，把F1到J1向下复制到J10； 再用格式刷把A到E列的格式刷到F到J列. 这样可以实现：A1到E1是表头，A2到E6是数据，然后F1到J10是表头加数据，效果如下图。 方法三 、执行VBA实现 选择A1 执行VBA 打开文件——选项——主选项卡——开发工具打勾。 如果有11条数据，i=1 to 10，100条就用1 to 99，先以5条数据为例，代码如下： Sub 工资条() Dim i% For i = 1 To 4 ActiveCell.Rows(1:1).Entire