VBA程序：定时复制指定单元格中的内容

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA ，OnTime方法 VBA 提供了一个 OnTime 方法，可以让我们在指定的间隔时间反复执行指定的过程。例如，如果我们想要每隔 20 秒将单元格 C1 中的内容向右侧单元格中复制，即 30 秒后将单元格 C1 中的内容复制到 E1 ，再过 30 秒复制到 F1 ， …… 依此类推。 可以使用下面的过程： Sub CopyValueInSpecificInterval() Dim lngCol As Long Dim lngRow As Long  lngCol  =  Cells(1, Columns.Count).End(xlToLeft).Column + 1 If lngCol < 3 Then lngCol = 3  lngRow  =  Cells(Rows.Count, 3).End(xlUp).Row  With Cells(1, lngCol).Resize(lngRow) .FormulaR1C1 = "=RC3" .Value = .Value  End With  Application.OnTime Now + TimeValue("00:00:30"), "CopyValueInSpecificInterval" End Sub 如果需要在指定的时间段复制数据，例如在 9:30 至 15:00 之间才能进行复制操作，则可以添加一个 ………………………………