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

如何快速实现让每一条工资条加上表头内容
方法一、利用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"）.EntireRow。Select
Selection.Copy
ActiveCell。Offset(2， 0）。Rows(”1:1”）。EntireRow。Select
Selection.Insert Shift：=xlDown
ActiveCell。Select
Next
End Sub
下图是效果图