1、选定区域，反点，创建列表（解决你插入行时序号就不能生成的问题）再录入函数。
2、如题函数为（在A2中录入：
=if(B2="","",row()-1)
下拉即可。
这种简单的东西，再编曲VBA，没有必要。
1。要有人名与班组的对照表2。用VLOOKUP函数：=VLOOKUP(A2,D:E,2,0)假设： A列是要录入的人名；B列是上面的公式； D列是人名，E列是其所在的对应班组。
这个似乎犯不上用VB的吧，VBA也解决得绰绰有余。但使用函数你自己也可以解决得像模像样。
例如A列A2输入1，A3： =IF(B3<>"",A2+1,"") ，往下拖到足够或适当，……
假设序号从A2开始，在A2单元格内输入
=ROW(A1)
下拉填充
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024