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

大灰狼1976

附件里面栋楼名称和单元格总数调换了位置，当然不能套用原代码。

灯盏

大灰狼1976 发表于 2017-4-17 20:57
附件里面栋楼名称和单元格总数调换了位置，当然不能套用原代码。

  我按照这个代码的格式更换的  位置和单元格的总数改怎么操作呢   总是出现  错误"9”

灯盏

大灰狼1976 发表于 2017-4-17 20:57
附件里面栋楼名称和单元格总数调换了位置，当然不能套用原代码。

Private Sub CommandButton1_Click()
Dim n&, s$, i&, j&, arr, brr, r&
arr = [b11:c14]
ReDim brr(1 To Application.Product(Application.Index(arr, , 1)), 1 To 2)
For i = 1 To UBound(arr)
  If arr(i, 1) > 0 Then
    n = arr(i, 1)
    s = arr(i, 2)
    For j = 1 To n
      r = r + 1
      brr(r, 1) = s
      brr(r, 2) = s & j
    Next j
  End If
Next i
[c16].Resize(r, 2) = brr
End Sub

灯盏

大灰狼1976 发表于 2017-4-17 20:57
附件里面栋楼名称和单元格总数调换了位置，当然不能套用原代码。

如何定义位置和范围呢？大神

灯盏

大灰狼1976 发表于 2017-4-17 20:57
附件里面栋楼名称和单元格总数调换了位置，当然不能套用原代码。

   不懂arr 和brr  这个数组到底是什么关系，还有application这里

大灰狼1976

arr是源数据数组，brr是结果数组。
另，你两列对调以后，s和n对应的值也要调换一下才行。

灯盏

大灰狼1976 发表于 2017-4-19 11:09
arr是源数据数组，brr是结果数组。
另，你两列对调以后，s和n对应的值也要调换一下才行。

Private Sub CommandButton1_Click()
Dim n&, s$, i&, j&, arr, brr, r&
arr = [b11:c47]
ReDim brr(1 To Application.Product(Application.Index(arr, , 1)), 1 To 2)
For i = 1 To UBound(arr)
  If arr(i, 1) > 0 Then
    s = arr(i, 1)
    n = arr(i, 2)
    For j = 1 To n
      r = r + 1
      brr(r, 1) = s
      brr(r, 2) = j
    Next j
  End If
Next i
[b49].Resize(r, 2) = brr
End Sub
调换了位置出现这个错误

灯盏

灯盏 发表于 2017-4-19 11:21
Private Sub CommandButton1_Click()
Dim n&, s$, i&, j&, arr, brr, r&
arr =

S   N   哪里换一下位置呢？     看不太懂，大神给我改一下，我在研究研究？  不理解主要

大灰狼1976

1. Private Sub CommandButton1_Click()
   
2. Dim n&, s$, i&, j&, arr, brr, r&
   
3. arr = [b11:c14]    '源数据装入数组arr
   
4. ReDim brr(1 To Application.Product(Application.Index(arr, , 1)), 1 To 2)    '确定结果数组大小，一维下标为单元总数合计，这里我错了，应该是加不是乘，所以Product要改成Sum,
   
5. '至于index是用来取数组的局部数据，这里取数组第1列数据，即单元总数
   
6. For i = 1 To UBound(arr)   '循环体，遍历源数据数组
   
7.   If arr(i, 1) > 0 Then    '无数据时不执行
   
8.     n = arr(i, 1)          '将单元总数赋值给变量n
   
9.     s = arr(i, 2)          '将楼栋名称赋值给变量s
   
10.     For j = 1 To n         '变量j从1循环递增至n，也即单元总数
    
11.       r = r + 1            '结果数组行号加1（通俗讲法）
    
12.       brr(r, 1) = s        '结果数组第1列赋值单元名称
    
13.       brr(r, 2) = s & j    '结果数组第2列赋值单元名称+单元号，通过j循环将单元号从1递增至n，即单元总数
    
14.     Next j                 'j循环
    
15.   End If
    
16. Next i
    
17. [c16].Resize(r, 2) = brr   '结果数组输出至以[C16]为首的单元格区域
    
18. End Sub

复制代码

大灰狼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.Sum(Application.Index(arr, , 2)), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.   If arr(i, 1) > 0 Then
   
7.     n = arr(i, 2)
   
8.     s = arr(i, 1)
   
9.     For j = 1 To n
   
10.       r = r + 1
    
11.       brr(r, 1) = s
    
12.       brr(r, 2) = j
    
13.     Next j
    
14.   End If
    
15. Next i
    
16. [c7].Resize(r, 2) = brr
    
17. End Sub

复制代码