优化代码提高效率---期待高手指点！

yuk_yu · 发表于 2012-5-12 11:43

本帖最后由 yuk_yu 于 2012-5-13 00:40 编辑

  For i = 1 To UBound(Arr)
      y = 1
      ReDim Crr(1 To UBound(Arr, 2), 1 To 6)
      For x = 5 To UBound(Arr, 2)
         Crr(y, 1) = Arr(i, x)
         Crr(y, 2) = Arr(i, x)
         Crr(y, 3) = Arr(i, x)
         Crr(y, 4) = Arr(i, 4)
         Crr(y, 5) = Arr(i, 2)
         Crr(y, 6) = Arr(i, 3)
         y = y + 1
      Next
      Sheet1.Cells(512 + (i - 1) * 15, 7).Resize(6, UBound(Arr, 2)) = WorksheetFunction.Transpose(Crr)‘分次读数速度太慢
      Erase Crr
Next
怎么使用Preserve将数据保留，最后进行一次读出？

yuk_yu · 发表于 2012-5-12 11:51

问题是解决了，但速度有点慢！

sunsoncheng · 发表于 2012-5-12 12:05

楼主是一行行地写入

有没有想整个数组写入?
先预设一个二维数组,隔多少行多少列的也就是你即将形成的电子表格的样子

全部在数组中写好了,再一次写入工作表?

yuk_yu · 发表于 2012-5-12 12:12

sunsoncheng 发表于 2012-5-12 12:05
楼主是一行行地写入

有没有想整个数组写入?

可以帮忙改下吗？

yuk_yu · 发表于 2012-5-12 17:38

yuk_yu 发表于 2012-5-12 12:12
可以帮忙改下吗？

非常期待大家帮忙！！

yuk_yu · 发表于 2012-5-13 00:41

yuk_yu 发表于 2012-5-12 17:38
非常期待大家帮忙！！

优化代码提高效率---期待高手指点！！

yuk_yu · 发表于 2012-5-18 22:46

yuk_yu 发表于 2012-5-13 00:41
优化代码提高效率---期待高手指点！！

帮忙看看能否对代码进行优化？？

fanjia · 发表于 2012-5-18 23:33

Crr = Sheet2.[D4].Resize(15 * UBound(Arr), UBound(Arr, 2))
Dim startRow As Long
For i = 1 To UBound(Arr)
      y = 1
      startRow = 15 * (i - 1)
      For x = 5 To UBound(Arr, 2)
         Crr(startRow + 1, y) = Arr(i, x)
         Crr(startRow + 2, y) = Arr(i, x)
         Crr(startRow + 3, y) = Arr(i, x)
         Crr(startRow + 4, y) = Arr(i, 4)
         Crr(startRow + 5, y) = Arr(i, 2)
         Crr(startRow + 6, y) = Arr(i, 3)
         y = y + 1
      Next
Next
Sheet2.[D4].Resize(15 * UBound(Arr), UBound(Arr, 2)) = Crr
Erase Crr

yuk_yu · 发表于 2012-5-23 23:34

fanjia 发表于 2012-5-18 23:33
Crr = Sheet2.[D4].Resize(15 * UBound(Arr), UBound(Arr, 2))
Dim startRow As Long
For i = 1 ...

高手！！谢谢指点

		自动登录	找回密码
密码			免费注册

[求助] 优化代码提高效率---期待高手指点！

评分