数个数组的循环体现

8787233

如题，可否用组合公式来实现。谢谢！
数据.zip (29.82 KB, 下载次数: 6)

2014-3-31 21:54 上传

点击文件名下载附件

shuyee

Sub test()
Dim tmpR As Range, i%, outArr() As Variant, j%, tmpV As Variant, k%
Set tmpR = Range("A2:C8")
tmpV = tmpR.Value
i = Application.WorksheetFunction.Sum(tmpR)
ReDim outArr(1 To i * 2)
k = 1
For i = 1 To tmpR.Rows.Count
    For j = 1 To tmpV(i, 3)
        outArr(k) = tmpV(i, 1)
        outArr(k + 1) = tmpV(i, 2)
        k = k + 2
    Next
Next
Cells(2, 10).Resize(k - 1, 1) = Application.Transpose(outArr)
End Sub

8787233

shuyee 发表于 2014-4-1 23:25
Sub test()
Dim tmpR As Range, i%, outArr() As Variant, j%, tmpV As Variant, k%
Set tmpR = Range("A ...

运行不起来。。。。。。。。

shuyee

怎么会呢。肯定行的

8787233

shuyee 发表于 2014-4-3 21:19
怎么会呢。肯定行的

师傅，出来的效果不一样呀。。。。。。。。。。
有空能再帮看看吗，谢谢！！！

shuyee

自己继续修行。