请求大神帮忙提升代码效率

dibadiba

求助大神，我用了For语言进行了行拆分（点击 split 按钮），原来1000条以内的数据速度还能接受，日积月累目前已经达到9K多条，拆分完成后达到3W多条，需要5~10分钟。不知是否有什么好的方法提升执行效率。
现在使用的代码如下

1. Private Sub CommandButton2_Click()
   
2. For i = 2 To [a65535].End(3).Row
   
3. For j = 1 To Cells(i, 5)
   
4. n = [h65535].End(3).Row + 1
   
5. Cells(n, 8) = j
   
6. Cells(n, 9) = Cells(i, 3)
   
7. Cells(n, 10) = Cells(i, 4)
   
8. Next j
   
9. Next i
   
10. End Sub

复制代码

文件见附件，谢谢

约定的童话

数组构建重新拆分，别在单元格循环

dibadiba

约定的童话 发表于 2020-5-24 12:37
数组构建重新拆分，别在单元格循环

初学者，还没用过数组。老师能否帮忙修改下，谢谢

约定的童话

dibadiba 发表于 2020-5-24 12:45
初学者，还没用过数组。老师能否帮忙修改下，谢谢

Sub 拆分()
    Dim i, n, arr, brr(1 To 100000, 1 To 3)
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        For k = 1 To arr(i, 5)
            n = n + 1
            brr(n, 1) = n
            brr(n, 2) = arr(i, 3)
            brr(n, 3) = arr(i, 4)
        Next
    Next
    [h2].Resize(UBound(brr), 3) = brr
End Sub