请教下如何快速打印，把同一名字的数据列出并保证固定行数，行数不足补空白行

hukaige945 · 发表于 2016-4-10 01:14

请教下如何快速打印，把同一名字的数据列出并保证固定行数，行数不足补空白行
打印出来后每张的格式都如附件中第二个表格的打印效果
请各们高手们不吝赐教
拜谢

朱荣兴 · 发表于 2016-4-10 08:51

提示: 作者被禁止或删除内容自动屏蔽

hukaige945 · 发表于 2016-4-13 11:23

朱荣兴发表于 2016-4-10 08:51
多于20行呢？咋处理？

感谢你的帮助，多于20多行的打两页，第一页打满第二页不足还是补空白行

hukaige945 · 发表于 2016-4-15 01:10

大神呢 1

hukaige945 · 发表于 2016-4-15 10:18

...........................

hukaige945 · 发表于 2016-4-16 00:31

真不如百度问吧回的快啊

rong3637 · 发表于 2016-4-16 22:18

不太明白你想要做得结果是什么

hukaige945 · 发表于 2016-4-18 00:38

rong3637 发表于 2016-4-16 22:18
不太明白你想要做得结果是什么

就是如附件中的明细表的数据，根据姓名列的每个同名的数据，快速打印出固定20行表中的打印效果，不满20行的补空格，超的20行的最后一页补空格

hukaige945 · 发表于 2016-4-21 00:42

没人能做出来？

skp669 · 发表于 2016-4-21 11:33

Sub 插入空白行()
Dim rs%, i%, k%, l%, rng As Range
rs = [a2].End(4).Row
For i = rs To 2 Step -1
      If Cells(i, 1) = Cells(i, 1)(0) Then
         k = k + 1
      Else
         j = 20 - (k + 1) Mod 20
         For l = 1 To j
            Cells(i + k + 1, 1).EntireRow.Insert
         Next
         k = 0
      End If
Next
End Sub
试试这个模块

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2016-4-10 08:51 \| 显示全部楼层 [广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

请教下如何快速打印，把同一名字的数据列出并保证固定行数，行数不足补空白行

浏览过的版块