Question

下面是一个分页的宏，求高手帮忙解读下，我现在分页的材料需要改变下，现在要修改这个宏！

Sub 分页()
Dim c As Range, r As Worksheet
Set r = ActiveSheet
k = r.UsedRange.Rows.Count
Set c = r.Range("a2:a" & k).Find("订单号")
Do While Not c Is Nothing
r.HPageBreaks.Add before:=c
ro = c.Row + 1
Set c = r.Range("a" & ro & ":a" & k).Find(c)
Loop

End Sub

Sub 删除分页()
Dim HPK As HPageBreak
Dim r As Worksheet
On Error Resume Next
Set r = ActiveSheet
k = r.HPageBreaks.Count
For i = 1 To k
r.HPageBreaks(i).Delete
Next i

End Sub
这个是分页和删除分页的，求解释！最好能加QQ！

Answer 1

按下ctrl+f，选择替换，在选项里面把“范围”有“工作表”改为“工作薄”，然后查找内容输入“（误报）”，替换为里面什么都不输入，点全部替换。全部搞定。
ps：输入时候注意“（）”是全角符号还是半角符号

Answer 2

看不懂。。。