Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
4.4k views
in Technique[技术] by (71.8m points)

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

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

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


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

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


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...