[已解决]VBA自动填写序号

xuflower · 发表于 2013-5-18 23:36

本人V语句，进行了数据筛选，但是由于筛选的日期前的序号不能重新排列，所以请高手帮助，在筛选后不要原数据中的序号，而且重新根据筛选出的数据，重新编写新的序号
说明和效果图也在附件中，在线等~~~~~

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-5-18 23:57

楼主：是不是想要这样的？见附件！

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-5-18 23:56

直接把A4单元格换成公式就成了。

=SUBTOTAL(103,$B$4:B4)

复制代码

代码还麻烦了。

hwc2ycy · 发表于 2013-5-18 23:57

本帖最后由 hwc2ycy 于 2013-5-18 23:59 编辑

要筛选出来就得用V了。
我以为只要在表格时看到序与了。

ligh1298 · 发表于 2013-5-18 23:57

这个最佳答案由 ligh1298 给出，感谢 ligh1298 的回答。

单击隐藏图章

楼主：是不是想要这样的？见附件！

xuflower · 发表于 2013-5-18 23:58

公式要看数据的长短来向下拉动不是很麻烦，如果直接写在V里直接判断出来的话，那不就显的很方便了吗？

xuflower · 发表于 2013-5-19 00:42

能否在自动添加序号后，设置添加序号的单位格边框？并把序号居中？

ligh1298 · 发表于 2013-5-19 06:57

本帖最后由 ligh1298 于 2013-5-19 07:15 编辑

xuflower 发表于 2013-5-19 00:42
能否在自动添加序号后，设置添加序号的单位格边框？并把序号居中？

在模块代码中的End sub前面加以下代码，就有边框与居中了。
Sheets("sheet2").Range("a5:e" & i).Borders.LineStyle = 1 '加边框：1是实线；2是虚线
Sheets("sheet2").Range("b5:e" & i).HorizontalAlignment = xlCenter '居中

xuflower · 发表于 2013-5-19 11:27

恩，看到了，多谢帮助，小弟学习了

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

[已解决]VBA自动填写序号

评分

点评