[問題] 陣列加速,回傳儲存格

[waiter337 (給開司一罐蘇格登)]

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://www.ptt.cc/bbs/Office/M.1481423791.A.47F.html
→ soyoso: worksheetfunction.transpose(陣列)
→ soyoso: https://i.imgur.com/SajpBnB
→ waiter337: 感謝支援
→ waiter337: 請教一下,假如陣列資料要匯入其他工作表時,但目前並沒
→ waiter337: 有作用該工作表,譬如陣列匯入A表,但我目前在B表,程式會
→ waiter337: 卡在這行巨集
→ waiter337: 執行階段錯誤 1004
→ waiter337: 等等 ,我程式寫錯了,我在試試
→ waiter337: 我好像弄錯了 xd
→ waiter337: 試到最後好像一定得用到該頁面才能貼上資料0,0
→ waiter337: 非當前工作表,好像不能貼上陣列資料
→ waiter337: 找到了 用resize
→ waiter337: 最終解答><
→ waiter337: sheets(1).[a1].Resize(UBound(陣列))= _
→ waiter337:  Application.Transpose(陣列)