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

skp669 · 发表于 2016-4-21 12:04

里面有代码，试试看，是不是你要的结果

hukaige945 · 发表于 2016-4-22 00:46

skp669 发表于 2016-4-21 11:33
Sub 插入空白行()
Dim rs%, i%, k%, l%, rng As Range
rs = [a2].End(4).Row

感谢，我试试

hukaige945 · 发表于 2016-4-22 01:19

hukaige945 发表于 2016-4-22 00:46
感谢，我试试

试过了，是我要的效果，谢谢，能麻烦讲解下吗

hukaige945 · 发表于 2016-4-22 01:21

skp669 发表于 2016-4-21 11:33
Sub 插入空白行()
Dim rs%, i%, k%, l%, rng As Range
rs = [a2].End(4).Row

谢谢，试过了，是我想要的效果，能讲解下么

skp669 · 发表于 2016-4-22 16:23

rs = [a2].End(4).Row
是计算表格最后使用的行数

skp669 · 发表于 2016-4-22 16:26

rs = [a2].End(4).Row
相当于在a列从第二行起，的最后使用的单元格的行数
完整的表达应该是：range("a2").end(xldown).row

hukaige945 · 发表于 2016-4-23 00:34

skp669 发表于 2016-4-22 16:26
rs = [a2].End(4).Row
相当于在a列从第二行起，的最后使用的单元格的行数
完整的表达应该是：range("a2") ...

主要是这个看不懂Dim rs%, i%, k%, l%, rng As Range

skp669 · 发表于 2016-4-24 08:01

主要是这个看不懂Dim rs%, i%, k%, l%, rng As Range
定义变量，rs表示最后有数据单元格所在的行数，i表示从最后向上循环，直到第二列结束，k表示相同的数据的总行数，j表示与k 20互补的行数，rng没有用到，可以去掉, rng As Range

skp669 · 发表于 2016-4-24 08:06

这是修改过后的，没用到的变量去掉了。

njpikaqiu · 发表于 2016-4-28 15:25

弱弱地问一声：非要打印出来才能看到效果吗？打印预览不行

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