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
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…