[已解决]VBA序号问题

龙送农

这是dsmch 帮写的序号代码，有2条信息才能运行。我想要的效果就是：只有1条信息也能运行。
Sub 序号()
Dim arr, i&
Sheets("出入库台账").Activate
arr = Range("e5:e" & [E65536].End(3).Row)
For i = 1 To UBound(arr)
    arr(i, 1) = i
Next
[a5:a65536].ClearContents
Range("a5").Resize(UBound(arr)) = arr
End Sub

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-4 05:15

1. Sub 序号()
   
2. Dim arr, i&, n&
   
3. Sheets("出入库台账").Activate
   
4. [a5:a65536].ClearContents
   
5. n = [E65536].End(3).Row
   
6. If n < 5 Then
   
7.     Exit Sub
   
8. ElseIf n = 5 Then
   
9.     [a5] = 1
   
10. Else
    
11.     arr = Range("e5:e" & n)
    
12.     For i = 1 To UBound(arr)
    
13.         arr(i, 1) = i
    
14.     Next
    
15.     Range("a5").Resize(UBound(arr)) = arr
    
16. End If
    
17. End Sub

复制代码

跳转到最佳答案楼层

雪舞子

1. Sub 序号()
   
2.     Dim x%
   
3.     For x = 5 To [e65536].End(3).Row
   
4.         Cells(x, 1) = x - 4
   
5.     Next
   
6. End Sub
   

复制代码

VBA序号问题.rar (22.47 KB, 下载次数: 9)

2015-3-3 21:49 上传

点击文件名下载附件

excel小米

dsmch 老师的这个是数组，所以要是数据量大的话，速度应该快很多。。。只是我不明白你的  有2条信息才能运行。我想要的效果就是：只有1条信息也能运行   是什么意思

龙送农

excel小米 发表于 2015-3-3 21:57
dsmch 老师的这个是数组，所以要是数据量大的话，速度应该快很多。。。只是我不明白你的  有2条信息才能运行 ...

dsmch 老师的这个是数组，所以要是数据量大的话，速度快，但只有1条信息时，不能运行。我的意思是只有1条信息也能运行。

龙送农

雪舞子 发表于 2015-3-3 21:49

dsmch 老师的这个数组速度快，如果您的这个能快速就好了。

雪舞子

龙送农 发表于 2015-3-3 22:32
dsmch 老师的这个数组速度快，如果您的这个能快速就好了。

对于你的表格，速度不会有明显区别，

单元格操作的有点就是方便简便，

对于一些数据量不大的表格也是有一定优势的

雪舞子

如果你只是序号问题，根本没有用VBA的必要，

甚至函数也不用，

直接输入，然后下拉，是最简便快速的，

用vba做序号，而且还要用数组，有点像“牛刀杀鸟”的感觉，呵呵！

龙送农

雪舞子 发表于 2015-3-3 22:49
如果你只是序号问题，根本没有用VBA的必要，

甚至函数也不用，

我的表是从“入库单”保存进来的，第1次保存进来的有时只有1条，但只有1条信息时，dsmch 老师写的代码不能运行。一年下来就有6000条左右。如果能在dsmch 老师写的代码修改一下，1条信息也能运行。

csmctjg

Sub 序号()
Dim arr, i&
Sheets("出入库台账").Activate
arr = Range("e5:e" & [E65536].End(3).Row + 1)
For i = 1 To UBound(arr) - 1
    arr(i, 1) = i
Next
[a5:a65536].ClearContents
Range("a5").Resize(UBound(arr)) = arr
End Sub

dsmch

1. Sub 序号()
   
2. Dim arr, i&, n&
   
3. Sheets("出入库台账").Activate
   
4. [a5:a65536].ClearContents
   
5. n = [E65536].End(3).Row
   
6. If n < 5 Then
   
7.     Exit Sub
   
8. ElseIf n = 5 Then
   
9.     [a5] = 1
   
10. Else
    
11.     arr = Range("e5:e" & n)
    
12.     For i = 1 To UBound(arr)
    
13.         arr(i, 1) = i
    
14.     Next
    
15.     Range("a5").Resize(UBound(arr)) = arr
    
16. End If
    
17. End Sub

复制代码