Sub Test1() Dim i As Long For i = 1 To 10000 Cells(i, 1) = 100 Next i End Sub Sub Test2() Dim c As Range For Each c In Range("A1:A10000") c = 100 Next c ...
確定！ 回上一頁
