[已解决]VBA建序列号

guogongyi

由于要建上万个号码，想用VBA在号段输入要建 的起始号码，在“VBA建序列号”生成号码。请求高手帮助！！

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-14 18:38

按要求号段建序号.rar (10.76 KB, 下载次数: 21)

2014-11-14 18:37 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim a As String, b As Long, ar() As String
   
3.     a = Range("b2") - 1
   
4.     b = Range("c2") - a
   
5.     ReDim ar(1 To b, 1 To 1)
   
6.     For i = 1 To b
   
7.         ar(i, 1) = Format(a + i, "0000000000")
   
8.     Next
   
9.     Range("a2").Resize(b, 1) = ar
   
10. End Sub
    

复制代码

楼主试试，附件楼下

qh8600

按要求号段建序号.rar (10.76 KB, 下载次数: 21)

2014-11-14 18:37 上传

点击文件名下载附件

爱疯

Sub test()
    Range("a2:a65536").ClearContents
    [b2].Copy [a2]
    [a2].AutoFill Range("a2:a" & ([c2] - [b2] + 2)), Type:=xlFillSeries
End Sub

guogongyi

qh8600 发表于 2014-11-14 18:38

谢谢，达到了我的要求。

guogongyi

爱疯 发表于 2014-11-14 18:48
Sub test()
    Range("a2:a65536").ClearContents
    .Copy [a2]

谢谢您，程序达到了我的要求，您每次回答我的问题都非常的快，且好。QH8600做的程序也达到了我的要求，最佳只能给一个。对不起您了。