85问答库 > 急急急！！！EXCEL在打印工资条时,如何使每一行都有表头?表头有三行，有合并项。

急急急！！！EXCEL在打印工资条时,如何使每一行都有表头?表头有三行，有合并项。

2024-10-29 07:47:52

推荐回答（5个）

回答1：

方法/步骤

1、点击进入页面布局选项卡，

2、点击打开打印标题功能，

3、点击顶端标题行右侧的折叠按钮，

4、选择自己想要打印的表头，可以选择多行

5、设置完成之后，点击确定，这样以后在每一个页面都可以打印表头页面了，

回答2：

一种是使用邮件合并
1、将现在工资表表头复制到word中，调整格式
2、现有表取消合并，留最下面一项做字段名称
3、在复制了表头的word文件中点邮件，选择收件人或数据源
4、选现有列表，文件类型选电子表格，找到文件，选择对应的工作表
5、对应表头依次插入字段域
6、在下一行插入规则下一记录复制上面的表头和插入的域
7、重复第6步直到填满当前页，保存这个word文档就可以作为合并模板，以后可重复使用
8、点开始邮寄合并，就可以得到可以打印的工资表了

另一个是写公式

能用插入（复制）表头的办法。这是个参考的

http://www.docin.com/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

回答3：

方法/步骤

1、点击进入页面布局选项卡，

2、点击打开打印标题功能，

3、点击顶端标题行右侧的折叠按钮，

4、选择自己想要打印的表头，可以选择多行

5、设置完成之后，点击确定，这样以后在每一个页面都可以打印表头页面了，

回答4：

建议你这样试试看：

在页面布局中找到打印标题，点击打开。
点击顶端标题行右侧的折叠按钮。
选择自己想要打印的标题行，可以根据自己的需要选择多行。
设置完成之后，如下图所示，点击确定即可。

这样做的好处：可以根据自己的实际需求设置多行标题。

注意事项：根据上面的图片进行设置，不要设置错了。

回答5：

点击文件中的页面设置，在弹出的窗口中点击如图位置

再选择所需的位置，再回车就呆可。