软件:Office 365
=====================程式码=====================
Sub tesyt()
For i = 1 To 100
sheet1.Cells(i, A) = sheet2.Cells(3, D)
Next
Application.OnTime Now + TimeValue("00:00:03"), "tesyt" 'Counter
End Sub
=========================================================
我想做的功能
我想将Sheet2 D3位置的数字
每三秒放入Sheet1 A Column 放一百个
我哪里做错了? Orz