<em>Excel</em> 如何实现在工作表中按条件快速插入分页符-excel 批量插入分页符

最近用基知本操作回答的问题都被VBA回答的抢了最佳,我也用VBA了。

Excel中alt+F11进入VBA编辑页面,插入-模块,将代码复制到主窗口.将Range("A2:A200")修改为你道的数字所在的区域,要从第二行开始。即B2:B1000或者C2：C65536这样的

Sub VBA_AD()
Dim Rng As Range

'删除内原来的分页符号

If ActiveSheet.HPageBreaks.Count > 0 Then
For i = ActiveSheet.HPageBreaks.Count To 1 Step -1
ActiveSheet.HPageBreaks(i).Delete
Next
End If

'如果上一个单元格容最后2位是“00”，那么插入分页符号。

For Each Rng In Range("A2:A200")
If Right(Rng.Offset(-1, 0), 2) = "00" Then
ActiveSheet.HPageBreaks.Add Rng
End If
Next

End Sub

用vba可以啊，顺带教大家一个利用记录宏来做vba的方百法。

第一步：点击开发工具-记录宏。如图：

第二步：度选择单专元格A10,点击页面布局-插入分割符。如图：

第三步：点击停止记录宏。得到宏代码如下：

第四步：在宏1的基础上进行代码改造。任务要求：在当前表格中属，读取最大行数，从1到最大行数之间，每隔10行插入一个分页符。代码如下：

第五步：运行宏，如图：

第六步：打印预览如图：

要根zd据条件批量插入只能用版宏了
sub abc()
for i=1 to Range("A65536").end(xlup).row
if 条件
条件单权元格选择
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
end if
next
end sub

这些内容都百是在A1单元格度里? 假设你要插入知的分隔符是回车道换行专好了
.cell(A1) = replace(.cell(A1),"总价","总价" & Chr(10))

& Chr(10) 换行符属 & Chr(9) Tab键