[已解决]按规定的数量将对应编号一次写在指定单元格内

兰馨雨

请老师们帮帮忙解决哦，谢谢了；按规定的数量将对应编号一次写在指定单元格内；已上传附件：

最佳答案

月排行榜 / 总排行榜

suye1010

2014-7-3 14:18

1. Sub FillNo()
   
2. Dim i, j, TotalNo, StartNo, arr0, arr(1 To 50000, 1 To 1)
   
3. arr0 = Sheets("数据表").Range("A2:B" & Sheets("数据表").Cells(65536, 1).End(xlUp).Row)
   
4. StartNo = 1
   
5. For i = 1 To UBound(arr0)
   
6.     TotalNo = TotalNo + arr0(i, 2)
   
7.     For j = StartNo To TotalNo
   
8.         arr(j, 1) = arr0(i, 1)
   
9.     Next j
   
10.     StartNo = TotalNo + 1
    
11. Next i
    
12. Sheets(1).Cells(2, 2).Resize(UBound(arr), 1) = arr
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

suye1010

1. Sub FillNo()
   
2. Dim i, j, TotalNo, StartNo, arr0, arr(1 To 50000, 1 To 1)
   
3. arr0 = Sheets("数据表").Range("A2:B" & Sheets("数据表").Cells(65536, 1).End(xlUp).Row)
   
4. StartNo = 1
   
5. For i = 1 To UBound(arr0)
   
6.     TotalNo = TotalNo + arr0(i, 2)
   
7.     For j = StartNo To TotalNo
   
8.         arr(j, 1) = arr0(i, 1)
   
9.     Next j
   
10.     StartNo = TotalNo + 1
    
11. Next i
    
12. Sheets(1).Cells(2, 2).Resize(UBound(arr), 1) = arr
    
13. End Sub
    

复制代码