汇总数字要求分列

雪椰

原表的数字是盘点的数字,现在要求根据原表里数量自动分列成多行,每行数量为1,因为后期要填写上不同的序列号,请教各位大侠,拜托

cbtaja

宜使用VBA：

1. Sub test()
   
2. arr = Sheet1.Range("A1").CurrentRegion
   
3. r = UBound(arr)
   
4. tt = Application.Sum(Sheet1.[c1].Resize(r, 1)) + 1
   
5. ReDim brr(1 To tt, 1 To 3)
   
6. p = 1
   
7. brr(p, 1) = arr(1, 1)
   
8. brr(p, 2) = arr(1, 2)
   
9. brr(p, 3) = arr(1, 3)
   
10. For i = 2 To r
    
11.     For j = 1 To arr(i, 3)
    
12.         p = p + 1
    
13.         brr(p, 1) = arr(i, 1)
    
14.         brr(p, 2) = arr(i, 2)
    
15.         brr(p, 3) = 1
    
16.     Next
    
17. Next
    
18. Sheet2.UsedRange.ClearContents
    
19. Sheet2.[a1].Resize(p, 3) = brr
    
20. End Sub
    

复制代码