Excel.Application.ActiveSheet.Columns(28).PageBreak = 1 Excel.Application.ActiveSheet.Columns(102).PageBreak = 1 With Excel.Application.ActiveSheet recordNum = .UsedRange.Rows.Count step = 66 For i = 1 To Round(recordNum / 50) Excel.Application.ActiveSheet.Rows(step).PageBreak = 1 step = step + 50 Next End With |
VBA分页
最新推荐文章于 2023-03-17 11:06:31 发布