作者waiter337 (給開司一罐蘇格登)
看板Office
標題[問題] 陣列加速,回傳儲存格
時間Sun Dec 11 10:36:23 2016
https://goo.gl/KzhEij
目前卡在 陣列資料貼不上N列
另外想問有沒有加速陣列的方式
稅前200p
感恩
(目前參考的資料,其實我看不懂=.=,這個離我太遠了)
Imports jimOfLib
Imports System.Diagnostics
Public Class ThisWorkbook
Private Sub ThisWorkbook_Startup(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Startup
fillArray()
End Sub
Private Sub fillArray()
Dim cell1 As Excel.Range = CType(Globals.Sheet1.Cells(1, 1),
Excel.Range)
Dim cell2 As Excel.Range = CType(Globals.Sheet1.Cells(200, 200),
Excel.Range)
Dim arry(100, 100) As String
Dim arryRange As Excel.Range = Globals.Sheet1.Range(cell1, cell2)
Dim i, j As Integer
Dim sw As New Stopwatch
For i = 0 To 99
For j = 0 To 99
arry(i, j) = (i + j).ToString
Next
Next
sw.Start()
arryRange.Value2 = arry
sw.Stop()
MsgBox(sw.ElapsedMilliseconds.ToString) '共耗 84 豪秒
End Sub
End Class
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.175.20.191
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1481423791.A.47F.html
1F：→ soyoso: worksheetfunction.transpose(陣列) 12/11 11:09
3F：→ waiter337: 感謝支援 12/11 21:58
4F：→ waiter337: 請教一下,假如陣列資料要匯入其他工作表時,但目前並沒 12/12 10:16
5F：→ waiter337: 有作用該工作表,譬如陣列匯入A表,但我目前在B表,程式會 12/12 10:17
6F：→ waiter337: 卡在這行巨集 12/12 10:17
7F：→ waiter337: 執行階段錯誤 1004 12/12 10:26
8F：→ waiter337: 等等 ,我程式寫錯了,我在試試 12/12 10:30
9F：→ waiter337: 我好像弄錯了 xd 12/12 10:34
10F：→ waiter337: 試到最後好像一定得用到該頁面才能貼上資料0,0 12/12 10:49
11F：→ waiter337: 非當前工作表,好像不能貼上陣列資料 12/12 10:51
12F：→ waiter337: 找到了 用resize 12/13 00:25
13F：→ waiter337: 最終解答>< 12/13 19:29
14F：→ waiter337: sheets(1).[a1].Resize(UBound(陣列))= _ 12/13 19:30
15F：→ waiter337: Application.Transpose(陣列) 12/13 19:30