作者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/cn.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