有了以上的基本语法，基本上就能执行很多复制粘贴工作了。
Sub 宏1()
Dim arr As Variant
arr = [A1:A4]
Range(Cells(1, 2), Cells(4, 2)) = arr
RowsNum = Selection.Row
For i = 1 To 100 Step 1
Range(Cells((RowsNum + 4 * (i - 1)), 2), Cells((4 * i), 2)) = arr
End Sub
关于VBA Application.OnTime用法
application.ontime |举报 |字号 订阅 Application.OnTime可实现定时执行vba程序。在vb.net中可定时执行windows程序。 下面介绍定时执行vba程序过程: 1.Application.OnTime参数 Application.OnTime(EarliestTime,Procedure as String,[LatestTime],[Schedule]) EarliestTime调用程序的时间 Procedure调用程序的程序名，类型String LatestTime程序执行的结束时间，可选，默认不停调用 Schedule默认True：预定新的调用过程，False非预定调用新的过程 2.举例 Sub fslk() '本程序在每天的12点运行yourproc过程" Application.OnTime _ EarliestTime:=TimeValue("12:00:00"), _ Procedure:="YourProc" End Sub '被调用程序 Sub yourpc() Cells.(1, 2).Value = 4423 End Sub 3.循环调用程序自身，并设置调用时间举例 Option Explicit '公共变量说明 Dim endtime As String Sub oneminute() '主程序 endtime = Now + TimeValue("00:01:00") Call updateself End Sub Sub updateself() '被调用程序 Sheet1.Cells(4, 3).Value = Format(Now(), "hh:mm:ss") Application.OnTime Now + TimeValue("00:00:01"), "updateself", endtime, True End Sub 此例子在单元格C4读秒持续显示，显示时间长度1分钟
http://wenku.baidu.com/link?url=vgi6RL7p_2TqF7B-okY4Z-6glN-wjRcMw9UzBjf7yZrLLPztBNAdllM5u__bwkKxgyGdELCy1Lsz7PVYJxBkEPybO64LFAKxMtn9JeKoUTG
