Sub test_Collection() t = Time() Dim Col1 As New Collection For i = 0 To 10000000. Col1.Add i. Next Debug.Print (Time - t) * 24 * 3600
確定! 回上一頁