软件:EXCEL 想用VBA把Sheet1的资料带入Sheet2 每分钟纪录资料并持续往下一行纪录，
大大们帮忙，要如何加入每分钟的语法?谢谢~
版本:2007
Sub TEST()
For i = 1 To 1000
x = i
Sheets("Sheet1").Select
Range("A2:J2").Select
Selection.Copy
Sheets("Sheet2").Select
Range("a" & (i)).Select
ActiveSheet.Paste
Next
End Sub

定时上可以application.ontime持续往下一列的话，可以range.end或range.find来判断最后一笔有值的储存格，如要取得列号的话row；如是储存格的偏移则以offset

s大，我贴文前有试过ontime函数，但会显示无法执行宏，可以请您再说明细节吗？谢谢您或是有范例可以参考吗？谢谢

如出现无法执行宏的话，检查ontime在指定Procedure参数字串上，是否也有该程序sub范例上可google excel vba application.ontime 可参考

好，我试试看，非常谢谢s大!