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