恳求自动生成序号的代码

xk2005

工作簿里有两个工作表，一个是原表一个是示例。要求按照示例在原表里每一行自动生成序号，从1开始

雪舞子

1. Sub test()
   
2.     Dim i%, n%
   
3.     For i = 3 To [c65536].End(3).Row
   
4.         If Cells(i, "c") <> "" Then n = n + 1: Cells(i, 1) = n Else n = 0: i = i + 1
   
5.     Next
   
6. End Sub

复制代码

IO表.rar (176.48 KB, 下载次数: 35)

2015-2-10 10:20 上传

点击文件名下载附件

baksy

A3公式，下拉；
=IF(B3="","",N(A2)+1)

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, s&, n&
   
3. n = Range("b65536").End(xlUp).Row
   
4. arr = Range("b3:b" & n)
   
5. For i = 1 To UBound(arr)
   
6.     If arr(i, 1) <> "" Then
   
7.         s = s + 1
   
8.         arr(i, 1) = s
   
9.     Else
   
10.         s = 0
    
11.     End If
    
12. Next
    
13. Range("a3").Resize(UBound(arr)) = arr
    
14. End Sub

复制代码