Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1375|回复: 7

[已解决]谁能帮我写一个VBA的程序,有关自动编号的

[复制链接]
发表于 2013-7-15 21:20 | 显示全部楼层 |阅读模式
要求不复杂,关于自动编号的,要求相同的部门从1开始编,一看附件便知道,谢谢各位了!
最佳答案
2013-7-15 21:58
你再看下

自动编号.zip

22.78 KB, 下载次数: 6

发表于 2013-7-15 21:46 | 显示全部楼层
你看是这样的吗?

自动编号.zip

30.04 KB, 下载次数: 5

回复

使用道具 举报

 楼主| 发表于 2013-7-15 21:55 | 显示全部楼层
lyf7276 发表于 2013-7-15 21:46
你看是这样的吗?

谢谢你的回复,但我看了一下,每次1都出现了两次,就是说,你的编号顺序是:1-1-2-3-4-5。。。 我希望是1-2-3-4-5-6。。。
回复

使用道具 举报

发表于 2013-7-15 21:58 | 显示全部楼层    本楼为最佳答案   
你再看下

自动编号.rar

29.83 KB, 下载次数: 19

评分

参与人数 1 +1 收起 理由
jeffljh + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-7-15 22:03 | 显示全部楼层
lyf7276 发表于 2013-7-15 21:46
你看是这样的吗?

我把Range("a" & i) = i - x 改为Range("a" & i) = i - x + 1就行了,谢谢
回复

使用道具 举报

 楼主| 发表于 2013-7-15 22:04 | 显示全部楼层
lyf7276 发表于 2013-7-15 21:58
你再看下

解决了我一个大问题。。。。。。谢谢@!
thanks very very very much...... you are nice!
回复

使用道具 举报

发表于 2013-7-15 22:06 | 显示全部楼层
公式就可以了
  1. =COUNTIF(B$2:B2,B2)
复制代码
回复

使用道具 举报

发表于 2013-7-15 22:07 | 显示全部楼层
jeffljh 发表于 2013-7-15 22:04
解决了我一个大问题。。。。。。谢谢@!
thanks very very very much...... you are nice!

解决了问题,记得评最佳给帮助你的人。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-19 00:17 , Processed in 1.182623 second(s), 17 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表