excel中的设置固定表头，表尾的问题？？？

表头设置：

1、切换到页面布局功能区，单击打印标题；

2、在弹出的对话框中，选择工作表标签；

3、选择顶端标题行（下图标注处），在弹出的对话框后，选择标题，即可。

表尾设置：

1、切换到页面布局功能区，单击页面设置；

2、在弹出的对话框中，选择页眉/页脚标签；

3、单击自定义页脚，按表格最后一行内容在页脚的左、中、右输入并进行格式设置和位置调整，即可。

1.什么是表头？

即表格中的第一个单元格。每张调查表按惯例总要有被调查者的简况反映，如被调查者的性别、年龄、学历、收入、家庭成员组成、政治背景、经济状况等。这类问题一般排列在调查表开头部分，称“表头”。

2.什么是表尾？

与表头类似，是表格中最后的部分，一般都记录了作者所写的备注信息。

标题行只要会一点EXCEL的人都会设置，不过不知道你有没有注意，在EXCEL中是没有表尾行设置的，一般情况下建立表尾只能通过页脚方式，不过，现在在这里给出一小段程序，可以帮你自动设置表尾行。使用方法：将下面的程序放VB中运行即可，运行后会提示输入表尾行，输入后就自动设置并打印出来，因此，在使用程序前要先将表格排好版哦。呵呵。。这段程序偶测过了的。-------------------------------------------------------------------------------------------Sub printAddFoot()　　 Dim activeSheetName As String
　　 Dim pageFoot As String, printAreaBak As String
　　 Dim indexA As Integer, indexB As Integer
　　 Dim numa As String, numb As String, footRows As Integer
　　 Dim tmpRows As Long, i As Integer
　　 If ActiveSheet.UsedRange.Rows.Count < 80 Then MsgBox "这么短的表格不用这个程序了吧？程序中止执行0。": Exit Sub
　　 pageFoot = InputBox("请输入页尾行号，格式：300:300　或　300:303", "设置打印页尾")
　　 indexA = InStr(1, pageFoot, ":")
　　 indexB = InStrRev(pageFoot, ":")
　　 If pageFoot = "" Then MsgBox "你没有输入页脚号，程序中止执行1。": Exit Sub
　　 If indexA <> indexB Or indexA = 1 Or indexB = Len(pageFoot) Then MsgBox "输入格式不对，程序中止执行2。": Exit Sub
　　 numa = Left(pageFoot, indexA - 1)
　　 numb = Mid(pageFoot, indexA + 1)
　　 If IsNumeric(numa) = False Or IsNumeric(numb) = False Then MsgBox "请输入“数字:数字”形式，程序中止执行3。": Exit Sub
　　 footRows = numb - numa
　　 If footRows > 10 Then MsgBox "页尾的行数过多，程序中止执行4。": Exit Sub
　　 If footRows < 0 Then
　　 pageFoot = numb & ":" & numa
　　 indexA = Val(numb)
　　 indexB = Val(numa)
　　 footRows = -footRows
　　 Else
　　 indexA = Val(numa)
　　 indexB = Val(numb)
　　 End If
　　 activeSheetName = ActiveSheet.Name
　　 ActiveSheet.Copy , ActiveSheet
　　 Do While True
　　 i = i + 1
　　 If i >= ActiveSheet.HPageBreaks.Count Then Exit Do
　　 Range("IV65536").Select
　　 tmpRows = ActiveSheet.HPageBreaks(i).Location.Row
　　 ActiveSheet.Rows(pageFoot).Copy
　　 ActiveSheet.Rows(tmpRows - footRows).Insert shift:=xlDown
　　 indexA = indexA + footRows + 1
　　 indexB = indexB + footRows + 1
　　 pageFoot = indexA & ":" & indexB
　　 Range("IV65536").Select
　　 Do While ActiveSheet.HPageBreaks(i).Location.Row <= tmpRows
　　 ActiveSheet.Rows(tmpRows - footRows - 1).Cut
　　 ActiveSheet.Rows(tmpRows + 1).Insert shift:=xlDown
　　 tmpRows = tmpRows - 1
　　 Range("IV65536").Select
　　 Loop
　　 Loop
　　 ActiveSheet.PrintOut Copies:=1, Collate:=True
　　 Application.DisplayAlerts = False
　　 ActiveSheet.Delete
　　 Application.DisplayAlerts = True
　　 Sheets(activeSheetName).Select
　　End Sub
-------------------------------------------------------------------------------------------

设置表头，在文件（F)中点页面设置，然后选点工作表，再点顶端标题行的那行的右边的小红箭头，再选定要固定的表头，按回车键后，点确认。设置固定表尾的话就在自定义页脚那设置，但页尾的表格就不好固定了，文字可以固定，可以试试。

固定几行做页脚，EXCEL没有这个直接的功能，当然也是可以变通的，比如利用图片，或者利用VBA来做。

你有没有效果图, 发上来看看