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

灯盏

大灰狼1976 发表于 2017-4-19 11:47
我把我的附件根据你的要求做了修改，请确认。
需要理解代码后才能套用至其他表。

还是不对，按照格式改的   不理解啊啊啊啊啊  明明一样，不知道问题出在哪里   崩溃边缘

大灰狼1976

用以下代码，注意单元名称的单元格格式为字符型，所以作为数字计算时会出错，所以需要改成数字格式。

1. Private Sub CommandButton1_Click()
   
2. Dim n&, s$, i&, j&, arr, brr, r&
   
3. arr = [b11:c17]
   
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. [b19].Resize(r, 2) = brr
    
17. End Sub

复制代码

灯盏

大灰狼1976 发表于 2017-4-19 13:01
用以下代码，注意单元名称的单元格格式为字符型，所以作为数字计算时会出错，所以需要改成数字格式。

复制了代码进去，还是不行

大灰狼1976

改单元格格式看到没？

灯盏

大灰狼1976 发表于 2017-4-19 13:07
改单元格格式看到没？

单元格格式改成了数值啊

大灰狼1976

直接给你改好的附件吧。

大灰狼1976

改了格式以后要双击单元格进入编辑状态后退出后才能生效。

灯盏

行了行了，哈哈哈哈原来问题在这里

灯盏

大灰狼1976 发表于 2017-4-19 13:11
改了格式以后要双击单元格进入编辑状态后退出后才能生效。

如果是这种，中间有间隔的怎么处理

大灰狼1976

源数组的范围扩大，取值的列变化一下就行了，最好先理解代码的意思，再自己试着改改。
楼上有代码的注释可供参考。application这一部分不懂的话就跳过，他只代表一个值，就是单元总数的合计，
你可以手工输入数字，主要是理解下面部分的意思，都是比较基础的知识。