代码运行速度优化

sallyxia414

Sub 工资条()
Dim i As Integer
For i = 6 To Range("A65536").End(xlUp).Row * 5 Step 5
   Range("A1:S4").Copy
   Rows(i).Select
   Selection.Insert Shift:=xlDown
   Application.CutCopyMode = False
Next
End Sub


请各位老师指导一下，帮忙优化一下~
用300条数据进行测试没有问题，但是也有点卡，放在正式的表格第25条开始卡，公司总人数多的时候有一千多人，用这个代码没有试过成功生成，都是程序卡死了按ctrl+pause都没用
                                                                                                                                               
每一条工资条表头有3行，然后两条工资条之间隔一行，每一条工资有19个明细，1000人数据量就很大了

sallyxia414

为啥没人呢…

jiangxiaoyun

用数组。。。。。。。。。。。。

sallyxia414

jiangxiaoyun 发表于 2018-8-28 09:27
用数组。。。。。。。。。。。。

我是初学者~~~数据的理解就是dim arr，然后有分动态静态，后面的我还在学习中。

zxl729129

你模拟一个数据，用数组

zhangzhang

详见附件，供参考。。。。。。。。。

excelvlookup

Sub aa()
ar = Sheet1.Range("a1:s4")
rw = Sheet1.Cells(Rows.Count, 1).End(3).Row
s = 1
For i = 5 To rw
    br = Sheet1.Cells(i, 1).Resize(1, 19)
    Sheet2.Cells(s, 1).Resize(4, 19) = ar
    s = s + 4
    Sheet2.Cells(s, 1).Resize(1, 19) = br
    s = s + 1
Next
End Sub

sallyxia414

zhangzhang 发表于 2018-8-28 11:26
详见附件，供参考。。。。。。。。。

大师，能再帮忙看看吗，我把代码用到正式文件中，显示类型不匹配。
然后我把数据粘贴在你给我的文件中，生成的全部都是单个单元格，但我的表头存在合并的情况，而且有线框。


我好像要求有点多了~~~



附上工作样~~~努力学习中

weisilisid

具体见附件
以附件数据406条数据，运行时间 1.72秒，

对你有帮助可以献上小花

zhangzhang

详见附件。。。。。。。。。。。。。。