[已解决]请教老师有没有替换循环语句分配更快的语句，谢谢！

lsy1133

见附件，假期费了老大劲编了一个底稿，但对于分配清单达到5000行以上时速度特别慢，请教老师有没有更好的语句使分配更快的方法？谢谢！

最佳答案

月排行榜 / 总排行榜

香川群子

2015-2-27 09:07

lsy1133 发表于 2015-2-26 21:05
我试过了，并不能提高速度的！不过我自己改下代码，把成块区域判断出来并通过copy粘贴办法，速度 ...

可以改成：
Sheets(RngTJ.Offset(0, -3).Value).Range("B8").Resize(RngTJ).Value = Sheets("KM").Cells(StarKM, 3).Resize(RngTJ)

这样也会快一些。

跳转到最佳答案楼层

取不好网名

什么程序,看了头晕!

雪舞子

粗略看了一下代码,大量使用了单元格直接操作,所以会使速度变慢.
建议可以改用数组或字典操作,可以成倍提高速度和效率.

lsy1133

不会呀，数组和字典如何操作？

孤单单

数组+字典，上万行都没问题。

lsy1133

孤单单 发表于 2015-2-24 09:55
数组+字典，上万行都没问题。

哪儿能找到用法呀？请教，或者帮我改下代码，可以吗？

grf1973

其他不管，至少那么多   Sheets(RngTJ.Offset(0, -3).Value)可以用set sh=Sheets(RngTJ.Offset(0, -3).Value)，然后引用sh。。。。。

lsy1133

grf1973 发表于 2015-2-25 16:37
其他不管，至少那么多   Sheets(RngTJ.Offset(0, -3).Value)可以用set sh=Sheets(RngTJ.Offset(0, -3).Valu ...

       我试过了，并不能提高速度的！不过我自己改下代码，把成块区域判断出来并通过copy粘贴办法，速度快多了，我测试下上万行大概50秒钟，原先一个个单元格找需要10多分钟也分不完。
      主要是这两句：
        Sheets("KM").Range("C" & StarKM & ":C" & StarKM + RngTJ - 1).Copy
        Sheets(RngTJ.Offset(0, -3).Value).Range("B8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      粘贴语句是通过录制宏获取的，不知还能否改进？

香川群子

lsy1133 发表于 2015-2-26 21:05
我试过了，并不能提高速度的！不过我自己改下代码，把成块区域判断出来并通过copy粘贴办法，速度 ...

可以改成：
Sheets(RngTJ.Offset(0, -3).Value).Range("B8").Resize(RngTJ).Value = Sheets("KM").Cells(StarKM, 3).Resize(RngTJ)

这样也会快一些。

lsy1133

香川群子 发表于 2015-2-27 09:07
可以改成：
Sheets(RngTJ.Offset(0, -3).Value).Range("B8").Resize(RngTJ).Value = Sheets("KM").Cells ...

非常简洁的语句，确实能提高速度，不过区域如何表达，如下：Sheets(RngTJ.Offset(0, -3).Value).Range(Mid(Bpd.Address(0, 0), 1, 1) & "8").Resize(RngTJ).Value = Sheets("KM").Cells(StarKM,4:StarKM,7).Value

即：想表达如sheet1表range(B8:C15）的值等于Sheets("KM").range(G10:H17）的值如何表达？