[已解决]请大家帮忙看一下有没有办法做到

刘洪裕

数据做成顺序数字

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-1-21 19:47

1. Sub aaa()
   
2. Dim arr, i&
   
3. arr = Range("a4:b" & [a65536].End(3).Row)
   
4. arr(1, 2) = 1
   
5. For i = 2 To UBound(arr)
   
6.   If arr(i, 1) = arr(i - 1, 1) + 1 Then arr(i, 2) = arr(i - 1, 2) + 1 Else arr(i, 2) = 1
   
7. Next i
   
8. [b4].Resize(UBound(arr)) = Application.Index(arr, , 2)
   
9. End Sub

复制代码

跳转到最佳答案楼层

雪舞子

vba法

1. Sub 顺序()
   
2.     Dim arr, brr, i%
   
3.     arr = Range("a4:a17")
   
4.     ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     brr(1, 1) = 1
   
6.     For i = 2 To UBound(arr)
   
7.         brr(i, 1) = IIf(arr(i, 1) - arr(i - 1, 1) = 1, brr(i - 1, 1) + 1, 1)
   
8.     Next
   
9.     Range("b4").Resize(i - 1, 1) = brr
   
10.     MsgBox "处理结束", , "提示"
    
11. End Sub

复制代码

刘洪裕

雪舞子 发表于 2014-1-21 00:02
vba法

十分感谢你的帮助，谢谢

baksy

B4=IF(A4-A3=1,B3+1,1)
公式下拉。

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&
   
3. arr = Range("a4:b" & [a65536].End(3).Row)
   
4. arr(1, 2) = 1
   
5. For i = 2 To UBound(arr)
   
6.   If arr(i, 1) = arr(i - 1, 1) + 1 Then arr(i, 2) = arr(i - 1, 2) + 1 Else arr(i, 2) = 1
   
7. Next i
   
8. [b4].Resize(UBound(arr)) = Application.Index(arr, , 2)
   
9. End Sub

复制代码