跳至内容

近思之

(湘ICP备2021002763号-1)温馨提示:本博客只收集个人学习与研究IT的技术资料。谢绝攻击!!!

excel 根据内容自动插入分页符

Sub FY_AD()

Dim rng As Range

‘从4行至25行进行分面操作;

For Each rng In Range(“A2:A25”)

‘以“newpage”作为分页条件,在A列中的第4行至25行如果有1则在该处插入打印分页符

If rng.Value = “newpage” Then

‘插入分页符

ActiveSheet.HPageBreaks.Add rng

End If

Next

End Sub

浏览量: 116
作者 hufangqiang发布于 2021年2月25日分类 信息技术、原创文章

文章导航

上一篇 上篇文章: CentOS 8 已是绝版?CentOS Stream 才是未来?
下一篇 下篇文章: 比超级计算机快百万亿倍,仅是量子计算“星辰大海”的第一步

近期文章

  • ipmitool 改服务器风扇的转速
  • 希沃一体机内置电脑操作系统
  • PHP中申明 declare(strict_types=1)的作用
  • PHP8.1 Fiber交叉执行多任务(附代码详解)
  • 学校电脑室专用操作系统GHOST WIN10 64位 纯净无广告无后门

近期评论

  • A WordPress Commenter发表在《你好,我的朋友》

归档

  • 2022年4月
  • 2022年3月
  • 2022年2月
  • 2022年1月
  • 2021年10月
  • 2021年9月
  • 2021年8月
  • 2021年6月
  • 2021年5月
  • 2021年4月
  • 2021年3月
  • 2021年2月
  • 2020年5月
  • 2020年4月
  • 2020年3月
  • 2020年2月
  • 2020年1月
  • 2019年12月
  • 2019年8月
  • 2019年7月
  • 2019年6月
  • 2019年5月
  • 2019年4月
  • 2019年2月
  • 2018年11月
  • 2018年9月
  • 2018年8月

分类

  • 信息技术
  • 原创文章
  • 原创程序
  • 官方软件下载
  • 教育教学
  • 网络转载

功能

  • 登录
  • 条目feed
  • 评论feed
  • WordPress.org
近思之 自豪地采用WordPress