[已解决]VBA 双重循环代码优化，如何能够快速运行

上清宫主

书到是多，但不太好说了，有广告的嫌疑。
其实可以在论坛中找一下兰色的VBA视频80集来学习，并到http://www.excelpx.com/forum-263-1.html中去互动，有问题那里提会给你解答的。
其实VBA入门不难，多看多写多想，很容易的。

弘仁

上清宫主 发表于 2015-8-13 14:43
书到是多，但不太好说了，有广告的嫌疑。
其实可以在论坛中找一下兰色的VBA视频80集来学习，并到http://ww ...

谢谢老师，谢谢啦！

弘仁

dsmch 发表于 2015-8-11 22:47

老师：

         MOD 5，你写成固定值5了，我有可能是6，如何动态取sheet1 第二行的除数啊？

dsmch

Sub Macro1()
Dim arr, brr, i&, j&, k%, s&
arr = Sheet1.Range("a1").CurrentRegion
ReDim brr(1 To 60000, 1 To 4)
For i = 3 To UBound(arr)
    For j = 3 To UBound(arr, 2)
        If arr(i, j) > 0 Then
            n = arr(2, j)
            x = arr(i, j) \ n: y = arr(i, j) Mod n
            For k = 0 To n - 1   
                s = s + 1
                brr(s, 1) = arr(i, 1)
                brr(s, 2) = arr(i, 2)
                brr(s, 3) = DateAdd("d", k, arr(1, j))
                brr(s, 4) = IIf(k = 0, x + y, x)
            Next
        End If
    Next
Next
Sheet2.Activate
ActiveSheet.UsedRange.ClearContents
[a1:d1] = Array("客户", "零件号", "日期", "数量")
Range("a2").Resize(s, 4) = brr
End Sub