请老师用VBA,按变量值，自动生成对应的数量，谢谢！

cartel

请老师用VBA,按变量值，自动生成对应的数量，谢谢！.zip (11.22 KB, 下载次数: 11)

2024-3-2 09:06 上传

点击文件名下载附件

gwjkkkkk

生成怎样的，模拟一下结果。。。

半百

是这意思吗？

cartel

半百 发表于 2024-3-2 12:39
是这意思吗？

感谢老师的回复！
想请老师师发下附件，谢谢！

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar(1 To 2), br, cr, i&, j&, k&, r&
   
    Application.ScreenUpdating = False
    br = [J1:K1].Value
    For i = 1 To UBound(ar)
        ar(i) = Range(Cells(1, (i - 1) * 6 + 3), Cells(Rows.Count, (i - 1) * 6 + 3).End(xlUp)).Value
        ReDim cr(1 To UBound(ar(i)) * br(1, i), 0)
        r = 0
        For k = 1 To UBound(ar(i))
            For j = 1 To br(1, i)
                r = r + 1
                cr(r, 0) = ar(i)(k, 1)
            Next j
        Next k
        Columns(i + 11).Clear
        Cells(1, i + 11).Resize(UBound(cr)) = cr
    Next i
        
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

cartel 发表于 2024-3-2 13:38
感谢老师的回复！
想请老师师发下附件，谢谢！

请参考附件。。。

半百

cartel 发表于 2024-3-2 13:38
感谢老师的回复！
想请老师师发下附件，谢谢！

请测试
Sub test()
r1 = Cells(Rows.Count, 3).End(3).Row
r2 = Cells(Rows.Count, 9).End(3).Row
arr = Array(Range("c1:c" & r1), Range("i1:k" & r2))
For i = 2 To 3
    n = 0
    For j = 1 To Application.Max(r1, r2)
        For k = 1 To arr(1)(1, i)
            n = n + 1
            Cells(n, i + 10) = arr(i - 2)(j, 1) '直接输入单元格，用数组最好
        Next
    Next
Next
End Sub