帮帮忙 为什么运行完后，前三万多行显示正确，再往后就都错了？

willdirty

Public Sub text()
    Dim i As Long, arr(1000000) As Long
    For i = 1 To 1000000
        arr(i) = i
    Next
    Sheets(1).Range("a1:a1000000").Value = Application.WorksheetFunction.Transpose(arr)
End Sub

jiangxiaoyun

将arr设置成二维数组，Transpose的问题

jiangxiaoyun

willdirty

jiangxiaoyun 发表于 2017-10-24 17:42

非常感谢您的帮助。