VBA 如何快速在多个位置的指定条件插入分页符?

RainLucky
  • 395
列A列B列C
a11
a22
a33
a44
b11
b22
c11
c22
c33
c44
d11
e11
e22
f11
.........

如上表格,如何在列A的每一个区分中间插入分页符,例如在a,b中间插入分页符,在b,c中间插入分页符?

回复
阅读 1.3k
1 个回答

Sub 不同行值分隔页()
Application.ScreenUpdating = False
endrow = [A65536].End(3).Row
For i = endrow To 2 Step -1
If Range("A" & i).Value <> Range("A" & i + 1).Value Then
Range("A" & i + 1).Select
Range("A" & i + 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next
Application.ScreenUpdating = True
End Sub

撰写回答
你尚未登录,登录后可以
  • 和开发者交流问题的细节
  • 关注并接收问题和回答的更新提醒
  • 参与内容的编辑和改进,让解决方法与时俱进
你知道吗?

宣传栏