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