用VBA批量生成序列码，目前我只会单个的，批量的还不会。请帮忙看看，谢谢

Qs18

试试............

Qs18

1. 
   
2. Sub qs()
   
3. Dim arr, i, s
   
4. arr = Sheet1.UsedRange
   
5. ReDim brr(1 To 60000, 1 To 2)
   
6. For i = 2 To UBound(arr)
   
7.     s = arr(i, 1)
   
8.     For j = 1 To arr(i, 2)
   
9.         m = m + 1
   
10.         brr(m, 1) = s
    
11.         brr(m, 2) = "'" & s & Format(j, "00000")
    
12.     Next
    
13. Next
    
14. With Sheet2
    
15.     .Range("a2").Resize(10000, 2).ClearContents
    
16.     .Range("a2").Resize(m, 2) = brr
    
17. End With
    
18. End Sub
    

复制代码

saghj

Sub test()
  Dim i&, j&, k&, r&, arr, brr
  arr = Sheets("批号").[a1].CurrentRegion
  ReDim brr(1 To 9999, 1 To 2)
  k = 1
  For i = 2 To UBound(arr)
    r = 1
    For j = 1 To arr(i, 2)
      brr(k, 1) = arr(i, 1)
      brr(k, 2) = arr(i, 1) & Format(r, "00000")
      k = k + 1
      r = r + 1
    Next j
  Next i
  With Sheets("序列码")
    .[a2].Resize(UBound(brr), 2).ClearContents
    .[a2].Resize(UBound(brr), 2) = brr
  End With
End Sub