Sub 重新排版()
'
' 重新排版 宏
'
Dim xWkst As Worksheet
Dim y As Integer
For Each xWkst In ThisWorkbook.Sheets
xWkst.ResetAllPageBreaks
For y = 2 To Cells(2, 255).End(xlToLeft).Column
If Cells(2, y).Value = "结论" Then
xWkst.VPageBreaks.Add (xWkst.Cells(2, y + 1))
End If
Next y
Next xWkst
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024