求产生序列的VBA

tayisha

这个东西能不能用VBA解决呢，还是函数解决更好？求高手解
就是生成图书馆区分号
这个区分号开始是没有的，按册数产生序列并生成如箭头所指的格式

wayy

应该不难，只是一个序号拆分问题，需要的话可以上数据附件，而不是图片。

无聊的疯子

附件中有数据源的话,用个循环就可以了!!

图片的话,就懒得搞了!

无聊的疯子

试试这个,以前做过一次!

1. 
   
2. Sub cc()
   
3. Dim Hx As Integer, X As Integer, Js As Byte
   
4. Dim Arr, Brr(1 To 10000, 1 To 3) As String
   
5.   Hx = Range("A65536").End(xlUp).Row
   
6.   Arr = Range("A1:C" & Hx)
   
7.   For Hx = 2 To UBound(Arr)
   
8.     Js = 1
   
9.     X = X + 1
   
10.     Brr(X, 1) = Arr(Hx, 1)
    
11.     Brr(X, 2) = Split(Arr(Hx, 2), "-")(0)
    
12.     Brr(X, 3) = Arr(Hx, 3)
    
13.     Do Until Js >= Arr(Hx, 3)
    
14.       X = X + 1
    
15.       Brr(X, 2) = "00" & Split(Arr(Hx, 2), "-")(0) + Js
    
16.       Js = Js + 1
    
17.     Loop
    
18.   Next
    
19.   Range("E2:G1000").ClearContents
    
20.   Range("E2").Resize(X, 3) = Brr
    
21. End Sub
    
22. 
    

复制代码

fjmxwrs

没有数据，怎么帮得上你呢？晕死