恳请大神们帮忙看下这个增添序编号

qiongmei6

我想求得一个代码，在l列根据m列有数据的情况下，在l2生成编号，例如目前的l2：l8就是我希望执行代码后的结果，再次谢谢各位大神的帮忙

杨建营

请楼主参考。

半百

说句不当说的话，问了300多个问题了，这么简单的序号问题还要求助，难道自己一点脑筋都不想动吗？

gwjkkkkk

代码也比较 简单，写个公式吧

gwjkkkkk

L2=

1. =IF(M2<>"",ROW()-1-COUNTBLANK($M$2:$M2),"")

复制代码

ykcbf1100

我觉得3楼老师说的在理。
这属于比较简单的，你求助了这么多次了，你要尝试自己去解决问题。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.3
   
2.     r = Cells(Rows.Count, "m").End(xlUp).Row
   
3.     [l2:l1000] = ""
   
4.     For i = 2 To r
   
5.         If Val(Cells(i, "m")) <> Empty Then
   
6.             m = m + 1
   
7.             Cells(i, "l") = m
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

Enocheasty

半百 发表于 2024-3-3 11:44
说句不当说的话，问了300多个问题了，这么简单的序号问题还要求助，难道自己一点脑筋都不想动吗？

才来这里不久，本来以为大家都是懂程序来交流学习的，结果一看，大量的人来求程序，有些吧真的简单的就是一个公式的问题，也要来搞个VBA。
其实还是觉得这种风气并不好，感觉有些人就是来蹭免费劳动力的。