[已解决]如何根据excel单元格内的一个值自动生成到另一个sheet内的行

灯盏

求助如何根据楼栋的单元数量，自动生成下面单元名称

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-14 21:35

好吧，是我太闲了，附件请参考。

1. Private Sub CommandButton1_Click()
   
2. Dim n&, s$, i&, j&, arr, brr, r&
   
3. arr = [b2:c5]
   
4. ReDim brr(1 To Application.Product(Application.Index(arr, , 1)), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.   If arr(i, 1) > 0 Then
   
7.     n = arr(i, 1)
   
8.     s = arr(i, 2)
   
9.     For j = 1 To n
   
10.       r = r + 1
    
11.       brr(r, 1) = s
    
12.       brr(r, 2) = s & j
    
13.     Next j
    
14.   End If
    
15. Next i
    
16. [c7].Resize(r, 2) = brr
    
17. End Sub

复制代码

跳转到最佳答案楼层

灯盏

求助

大灰狼1976

大哥不要刷屏，我到现在都没有开图。不能做个EXCEL附件吗？

Excel学徒123

传附件，求助都懒成这样

灯盏

这个就是附件了

灯盏

有没有大神啊

大灰狼1976

好吧，是我太闲了，附件请参考。

1. Private Sub CommandButton1_Click()
   
2. Dim n&, s$, i&, j&, arr, brr, r&
   
3. arr = [b2:c5]
   
4. ReDim brr(1 To Application.Product(Application.Index(arr, , 1)), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.   If arr(i, 1) > 0 Then
   
7.     n = arr(i, 1)
   
8.     s = arr(i, 2)
   
9.     For j = 1 To n
   
10.       r = r + 1
    
11.       brr(r, 1) = s
    
12.       brr(r, 2) = s & j
    
13.     Next j
    
14.   End If
    
15. Next i
    
16. [c7].Resize(r, 2) = brr
    
17. End Sub

复制代码

灯盏

大灰狼1976 发表于 2017-4-14 21:35
好吧，是我太闲了，附件请参考。

这里还有一个问题，大神

大灰狼1976

灯盏 发表于 2017-4-17 10:18
这里还有一个问题，大神

不可能出现这种情况，你上传错误的附件我看看

灯盏

大灰狼1976 发表于 2017-4-17 15:24
不可能出现这种情况，你上传错误的附件我看看

附件