[已解决]VBA序号提速问题

龙送农

我的VBA序号感觉速度还不够快，如何做到快速填充序号。

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-1 08:36

1. Sub 序号()
   
2. Dim arr, i&
   
3. Sheets("出入库台账").Activate
   
4. arr = Range("e5:e" & [E65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6.     arr(i, 1) = i
   
7. Next
   
8. [a5:a65536].ClearContents
   
9. Range("a5").Resize(UBound(arr)) = arr
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub 序号()
   
2. Dim arr, i&
   
3. Sheets("出入库台账").Activate
   
4. arr = Range("e5:e" & [E65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6.     arr(i, 1) = i
   
7. Next
   
8. [a5:a65536].ClearContents
   
9. Range("a5").Resize(UBound(arr)) = arr
   
10. End Sub

复制代码

26759761@qq.com

1. Sub 序号11()
   
2. Dim i&, n&, ar(1 To 65500, 1 To 1)
   
3. Sheets("出入库台账").Select
   
4. Range("A5:A65536").ClearContents
   
5. arr = Range("e5:e" & [E65536].End(3).Row)
   
6. For i = 1 To UBound(arr)
   
7.     If arr(i, 1) <> "" Then
   
8.         n = n + 1
   
9.        ar(n, 1) = n
   
10.     End If
    
11. Next i
    
12. Range("a5").Resize(n) = ar
    
13. End Sub
    

复制代码

龙送农

两位老师都给了很好的答案，谢谢!

龙送农

dsmch 发表于 2015-3-1 08:36

老师：当表只有一条信息时，代码不能运行，怎么修改。