[已解决]自动生成符合要求的数据

chenazsz

各位大神；

小弟又来求助了，附件是求助的内容，不知道能不能通过VBA实现。
不胜感激。

最佳答案

月排行榜 / 总排行榜

qh8600

2015-6-22 11:33

求助.rar (27.73 KB, 下载次数: 13)

2015-6-22 11:32 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

baksy

附件

qh8600

1. Sub demo()
   
2.     Dim a As String, b As Integer, c As Integer, d As Integer, ar
   
3.     a = Range("c2").Value
   
4.     b = Val(Range("c4").Value)
   
5.     c = Val(Range("c5").Value)
   
6.     d = Range("c7").Value
   
7.     If c < b Or d < 1 Then MsgBox "起始截止数字错误": Exit Sub
   
8.     ReDim ar(1 To (c - b + 1) * d, 1 To 1)
   
9.     For i = b To c
   
10.         For j = 1 To d
    
11.             n = n + 1
    
12.             ar(n, 1) = a & Format(i, "0000")
    
13.         Next
    
14.     Next
    
15.     Sheets("自动生成的序列号").Range("a2").Resize(UBound(ar), 1) = ar
    
16. End Sub
    

复制代码

附件楼下

qh8600

求助.rar (27.73 KB, 下载次数: 13)

2015-6-22 11:32 上传

点击文件名下载附件
楼主试试

chenazsz

楼上的兄弟，你太给力了。非常非常感谢

scl5801

Public Sub shench()
Dim i&, j&, n&, arr(1 To 200 * 6, 1 To 1)
n = 1
For i = 1 To 200
   For j = 1 To 6
      arr(n, 1) = Range("c2") & Application.Text(i, "0000")
      n = n + 1
   Next j
Next i
[e2].Resize(UBound(arr)) = arr
End Sub