kimbal

用"核數員"定位
ActiveSheet.ResetAllPageBreaks
    For Each rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        If WorksheetFunction.IsText(rng.Value) Then
            If Left(rng.Value, 3) = "核數員" Then
                ActiveWindow.SelectedSheets.HPageBreaks.Add before:=rng.Offset(1, 0)
            End If
        End If
    Next