儿童漂移车玩法:excel最难问题!

先回答最重要的一个问题, 即Q3,

方法一: 假设第一行为标题行, 且需固定, 点击A2单元格>>菜单:窗口>>冻结窗格. 你可以把控件放在第一行里, 这样, 在向下卷动时, 控件一直可以看到.只要行高合适就行.

方法二: 这个方法则很专业, 在模块中插入下列代码,
保存后重新打开即可, 一并包括Q1:
-------------------------------------------------------
' 启动时自动生成个性化打印工具按钮
Sub Auto_Open()
Dim myControl As CommandBarButton
Dim strTitle As String ' 自定义工具栏标题
Dim strCaption As String ' 按钮标题

strTitle = "我的表格"
strCaption = "定制打印"

' 不管自定义工具按钮存在与否
' 先删除之以利正确创建
On Error Resume Next
Application.CommandBars(strTitle).Delete

' 创建自定义工具栏及按钮
Application.CommandBars.Add(Name:=strTitle, Position:=msoBarFloating, Temporary:=True).Visible = True
Set myControl = Application.CommandBars(strTitle).Controls.Add(Type:=msoControlButton, ID:=2950, Before:=1, Temporary:=True)

With myControl
.Caption = strCaption
.Style = msoButtonIconAndCaption
.OnAction = "DoMyPrint" ' 点击这个按钮时运行 DoMyPrint 过程
.TooltipText = "按指定要求打印."
End With

End Sub

Sub DoMyPrint()
Dim rngArea As Range

Set rngArea = Cells.SpecialCells(xlCellTypeConstants) ' 数据区域集合

For I = 1 To rngArea.Areas.Count
rngArea.Areas(I).PrintPreview ' 预览打印内容, 实际打印时改为 PrintOut
Next
End Sub

Sub Q2()
' 假设原数据在 SHEET1 表中, SHEET2 表为空, 本案借用其生成组合打印页

Dim rngArea As Range
Dim rng2BePrint As Range
Dim iPrintableRows As Integer
Dim iPages As Integer

iPrintableRows = 45 ' 预设每页可打印的行数, 请按需要修改

Set rngArea = Sheet1.Cells.SpecialCells(xlCellTypeConstants) ' 数据区域集合

For I = 1 To rngArea.Areas.Count

Set rng2BePrint = rngArea.Areas(I)

' 该数据区域可打印几页?
iPages = Int(iPrintableRows / rng2BePrint.Rows.Count)

If iPages <= 2 Then
' 该数据区域有满一页, 直接打印
rng2BePrint.PrintPreview ' 预览打印内容, 实际打印时改为 PrintOut
Else

' 多页组合打印
With Sheet2
.Cells.ClearContents ' 清除Sheet2中的原有数据
rng2BePrint.Copy .Range("A1")
For J = 1 To iPages - 1
rng2BePrint.Copy .Range("A1").End(xlDown).Offset(1, 0) ' 复制 N 份到SHEET2
Next

.Cells.SpecialCells(xlCellTypeConstants).PrintPreview ' 预览 SHEET2 打印内容, 实际打印时改为 PrintOut
End With

End If

Next
End Sub