Question

excel通过VBA批量插入符合条件的分页符

表如下所示 A1 价格1 价格2 价格3 价格4 总价 价格1 价格2 价格3 总价 价格1 价格2 价格3 价格4 价格5 总价 我想在每个总价下面插入分隔符，如何通过VBA批量实现？
A

价格1

价格2

价格3

价格4

总价

价格1

价格2

价格3

总价

价格1

价格2

价格3

价格4

价格5

总价

Answer 1

Sub 分隔页()
Application.ScreenUpdating = False
endrow = [A65536].End(3).Row
For i = endrow To 1 Step -1
If Range("A" & i).Value = "总价" Then
Range("A" & i + 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveSheet.Cells(i + 1, 1)
End If
Next
Application.ScreenUpdating = True
End Sub

Answer 2

自已录一段宏，得到插入分页符的代码，在VBA中插入代码就行了。

追问

嗯，就是求代码啊。。。。。。

Answer 3

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

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

追问

不是，是都在A这一列。。。。，上面写错了

追答

遍历A列单元格, 查询到 总价 就插入一行

追问

是啊，求代码啊。。。。