用EXCEL做工资条，怎样重复表头，在线等~~

xinlena · 发表于 2013-9-7 11:08

本帖最后由 xinlena 于 2013-9-7 11:15 编辑

工资表制作.rar (13.47 KB, 下载次数: 19)

代码分享：
打开附件后，鼠标选定A1单元格，然后按“工资条”按钮.

Sub Macro1()
Dim i As Long
For i = 2 To 4
'
' Macro1 Macro
'

'
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

夏寂雨透 · 发表于 2013-9-10 14:22

张冒云发表于 2010-5-20 11:26
此方法好是好，只是一般工资条都需要裁剪开的，中间就必须要有一个空行才行，如果按照偶数、奇数排列的话就 ...

请问具体是怎样做？

zjn168166 · 发表于 2013-10-23 11:39

wwm613 发表于 2010-5-19 22:04
请看下图……
不明白的话，留信息。

高手能不能具体教下，你那个表速度挺快的，看得不是很懂。谢谢。

zjn168166 · 发表于 2013-10-23 12:56

wwm613 发表于 2010-5-19 22:04
请看下图……
不明白的话，留信息。

还有上线？你的图速度太快了，看得不是很清楚，能详细说下？

雨恋空中 · 发表于 2013-10-25 11:12

这方法实在是太强大了

yiping04 · 发表于 2013-10-25 13:37

{:soso_e142:}{:soso_e142:}{:soso_e142:}

小石头-蒋 · 发表于 2014-1-16 10:30

不错。。今天又温故而知新了

海沦 · 发表于 2014-1-21 21:16

如是2003版本，可以文件—页面设置—工作表—顶端标题行—设置工资明细行（如：A1:A2)回车。就可以每页一个员工条了。自己在设置一下页边距就行了。

shdh · 发表于 2014-6-17 11:45

绝啊，简单方法解决了大问题啊。

小麒 · 发表于 2014-6-30 15:37

4楼的方法我是第一次接触到
也可以用word的邮件合并功能

		自动登录	找回密码
密码			免费注册