Sub Macro1()
Application。ScreenUpdating = False
r = Range("A65536")。End(xlUp)。Row
For i = r To 1 Step -1
If Cells(i, 1) = " 年 月 日" Then
Rows(i + 1 & ":" & i + 5)。
Select
Selection。Delete Shift:=xlUp
ActiveWindow。SelectedSheets。HPageBreaks。Add Before:=ActiveCell
End If
Next i
End Sub
按执行即可,因你的数据有几千行,所以运行比较慢,我测试了一下,需要40秒,这个时间动不了,你别急。
我的配置很高。如果配置不好,估计时间更长。
。
我看了一下你的表格,每个表格占的行数是一样多就很容易,只要在打印预览里有个页边距点一下让它显示出来,拉动下页边距那条虚线至第一页所打印为止的那行也就是第21行.如果看不到那一行就在第21行随便输入一些字,就能将那条虚线拉到至那些输入的字下边就行了.最后把输入的字删除.
改了一下，因为每页都是21行呀，先全选这一页，重置一下分页符，
运行一下这个代码。
Sub Macro1()
r = Cells.SpecialCells(xlCellTypeLastCell).Row '最大行
For i = 22 To r Step 21'每页21行
Range("A" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next i
End Sub
因为步长加大到21了，而且少了判断语句，所以不用很长时间等待可以完成了。
答：先进入你的邮箱点“写邮件” 然后填上对方的地址，如发送给一个人者只填第一个“收件人”就可以了，要是同时发送给两个或三个就把下面两个地址填上。（如例） 收件人 (...详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
