阳和

kbmj

Sub test1()
     '创建数组，并赋值
     Dim arr(1 To 100), i As Long
     For i = 1 To 100
         arr(i) = i
     Next i
     '将数组的值写入单元格（A列）
     [a1:a65536].Clear '清除原有数据
     Dim irow As Long
     Dim j As Long
     Dim startime As Double
     startime = Timer
     For irow = 1 To 100
     For j = 1 To 100
         Cells(irow, 1) = arr(irow)
         Cells(j, irow) = arr(irow)
     Next j
     Next irow     '（Next j   Next irow  ）倒序为什么不行
     

    End Sub

kbmj

shuyee 发表于 2012-9-13 08:05
问题不明朗.
next j Next row,只是更改了循环次序.但你这里是100*100,没有影响.
真正有影响的是cells()函 ...

谢谢明白了

shuyee

问题不明朗.
next j Next row,只是更改了循环次序.但你这里是100*100,没有影响.
真正有影响的是cells()函数的表达.