Re: [VBA ] 求救將結果輸出至Excel的速度過慢

看板Visual_Basic作者KnightG ( ~ 風 ~ )時間14年前 (2011/04/25 01:57)推噓3(3推 0噓 6→)

留言9則, 3人參與討論串2/2 (看更多)

※ 引述《u19901006 (U)》之銘言： : 我目前使用的方法是Worksheet.cell.Value = 陣列 : 再使用For Next迴圈讓它跑 : 可是真的很慢(我快瘋掉了，跑一次要幾百秒= =) : 有想過直接印出陣列這種方法可是我不會寫QQ : 請問有不使用迴圈而直接輸出的方法嗎？ : 麻煩大家了可以試試看這個方式貼個小範例請再依照需要印出陣列範圍修改一下吧!! 寫滿一頁滿格還算蠻快吧(!!??)約10幾秒 ~ Sub Example() Dim myarr() myarr = Sheet1.Range("A1:IV65536").Value For i = 1 To 65536 For j = 1 To 256 myarr(i, j) = i + j Next j Next i Sheet1.Range("A1:IV65536").Value = myarr End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.25.177.147

→

KnightG

04/25 02:17, , 1^F

04/25 02:17, 1^F

推

u19901006

04/25 02:46, , 2^F

04/25 02:46, 2^F

→

u19901006

04/25 02:47, , 3^F

04/25 02:47, 3^F