sub InsertPageBreak()
Dim irow As Integer
ActiveSheet.ResetAllPageBreaks
irow = 3
While (ActiveSheet.Cells(irow, 2) <> "")
Debug.Print ActiveSheet.Cells(irow, 2), irow
If ActiveSheet.Cells(irow - 1, 2).Value <> ActiveSheet.Cells(irow, 2).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveSheet.Cells(irow, 2)
End If
irow = irow + 1
Wend
end sub
评论