文员小妹求软件工程师大神帮忙做个excel宏 - VBA当前位置:& &&&文员小妹求软件工程师大神帮忙做个excel宏文员小妹求软件工程师大神帮忙做个excel宏&&网友分享于：&&浏览：0次文员小妹求程序员大神帮忙做个excel宏给现有表列最后加一列，这列从1开始每个数字最大写5次，正常情况是写5次就递增，但是如果第一列名字相同不能被分开这时候就要不到5就递增，使第一列同名的到下一个5个里面去
b&&&&&&&2&&此处原来应该是1&但是同名b就被分成2组了所以我就把第一个b开始分到下组去了
d&&&&&&&3------解决思路----------------------Sub&A()
Dim&nStart&As&Integer
Dim&nRow&As&Integer
Dim&nLastRow&As&Integer
nStart&=&1
nLastRow&=&Sheets("Sheet1").[a65536].End(xlUp).Row
Sheets("Sheet1").Range("B1")&=&nStart
For&nRow&=&2&To&nLastRow
If&Sheets("Sheet1").Range("A"&&&nRow)&&&&Sheets("Sheet1").Range("A"&&&nRow&-&1)&Then
nStart&=&nStart&+&1
Sheets("Sheet1").Range("B"&&&nRow)&=&nStart
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有推荐到广播
404334 人聚集在这个小组
(环宇星际目)
(起司馅饼)
(暴走的萝卜)
(快叫我maestro!)
第三方登录：有没有大师给看看Excel这种代码和宏_百度知道打开一个excel执行宏的时候自动调用另外一个excel的宏怎么解决
&&&&昨天晚上遇到一个诡异的问题，我做EUD的时候，打开两本excel文件，从下面一本把一个函数copy到上面那本，其实在此之前应该在下面一本处回车一下让函数处于不被选中的状态，但是自己做的时候忽略这件事了。结果可怕的事情出现了，执行上本的宏代码的时候自动调用下面一本，出现找不到select1004的错误。后来我看下面那本太讨厌了，直接把它的路径改了，可是这下子更倒霉，每次执行上面那本都会提示找不到下面那本路径的错误。
&&&今天来了发现更加诡异了，即便不是我昨天做的那两本，随便打开有宏的一本excel，跑的时候都会自动调用昨天下面那本79p-的文件，怎么更改macro的设置都不行啊，无比郁闷啊。而且出现错误关闭当前打开的这本excel的时候，底下都会自动冒出来被调用的那本讨厌的79p-文件，呀呀呀呀。
最后经历无数痛苦的探索，终于解决这个问题了。说一下解决方案吧。错误原因是宏link错了，我做实验跑了一下79p-那本，正常，然而再跑别的本，发现别的本都没有add
in那个标签栏了，原来别的excel现在都变成了79p-的影子，真正执行的是79p-。如果想让link出现的问题提示出来，我们需要做一些设置，方法如下，在excel里面打开最左边的标签，进取设置一下，其中里面有一个message提示的设置，把message提示设置成有效。这下再进来的话，人家就会提示你宏link错了，然后把link错的宏一删掉就OK了。
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}