为非连续的非空连续单元添加序号

2795825624

如图，在第1中为第2列非空值域  添加连续的序号
我用VBA试了好久都没有成功，求求哪位大神能帮帮忙？

看见星光

1. Sub num()
   
2.     Dim arr, i&, k&, rng As Range
   
3.     Set rng = Range("a1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
   
4.     arr = rng.Value
   
5.     For i = 1 To UBound(arr)
   
6.         If arr(i, 2) <> "" Then k = k + 1: arr(i, 1) = k Else k = 0
   
7.     Next
   
8.     rng = arr
   
9. End Sub

复制代码

2795825624

看见星光 发表于 2018-6-21 21:09

膜拜大神，我该怎么给你加分