返回目录:excel表格制作
具体步骤如下:
1、假设有10人,标题从B列到F列结束,第抄1行是标题,从B列到F列是字段名,第3行到第12行是这10个人袭对应的工资资料,如图所示:
2、选中第3行到第11行之后,点击右键,选择插入。
3、然后新的第2行到第10行就是空白百了,而人员就到了第12行到第21行了。
4、把第一行度的标题向下填充到第3行到第12行,然后标题就成了第2行到第12行了。
5、在g列把上一步填充的标题行依次标注问为1、3、5奇数填答充一直到21,如图所示:
6、在g列把第剩余行数2、4、6费偶数填充一直到20,如图所示:
7、选中所有数据按照g列排升序就可以实现每隔一行(员工工资)插入两行表头,如图所示:
一种是使用邮件合并
1、将现在工资表表头复制到word中,调整格式
2、现有表取消合并,留最下面一项做字段7a64e59b9ee7ad94363名称
3、在复制了表头的word文件中点邮件,选择收件人或数据源
4、选现有列表,文件类型选电子表格,找到文件,选择对应的工作表
5、对应表头依次插入字段域
6、在下一行插入 规则 下一记录 复制上面 的表头和插入的域
7、重复第6步直到填满当前页,保存这个word文档就可以作为合并模板,以后可重复使用
8、点开始邮寄合并,就可以得到可以打印的工资表了
另一个是写公式
能用插入(复制)表头的办法。这是个参考的
http:///p-71917579.html
EXCEL制作工资条时,如何复制表头到每一行。
方法1:
选中除了标题行外的所有工资信息,“插入行”,就可以在标题行下面一次性插入与你工资人数相等的空行,然后使用填充柄复制标题行在这些空行中,这样,上面就是标题行,行数和下面的人数相等(其实还多一行,就是最先的那行),下面是数据行。现在插入一个辅助列,继续使用填充柄在前面的标题行中填充奇数1、3、5、7……,在下面的数据行里填充偶数2、4、6、8……,然后在这个辅助列里升序排序即可把原先复制的标题行排列在数据行中间并交替间隔,删除这个复制列即可。
方法2:
用vba写两函数搞定
Sub InsertHeader()
Dim r As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
r = 3
Do While r <= LastRow
ActiveSheet.Rows(1).Copy
ActiveSheet.Rows(r).Insert Shift:=xlDown
LastRow = LastRow + 1
r = r + 2
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub DeleteHeader()
Dim r As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
r = 3
Do While r <= LastRow
ActiveSheet.Rows(r).Delete
r = r + 1
LastRow = LastRow - 1
Loop
Application.ScreenUpdating = True
End Sub
每个员工的工资都插入一行表头吧。表尾是合计数,对各个员工没用的。
参考下面的动态演示: