自动更新的是来自外部数据!外部数据,所以用每秒钟记录一次的方法!
Sub excute_record() '放在模块中
Cells(Rows.Count, "j").End(xlUp).Offset(1, 0).Value = Range("e3").Value 'e3是引用外部数据的单元格,J列是用于储存数据的。
Application.OnTime Now + TimeValue("0:00:01"), "excute_record" '用OnTime方法实现每秒执行一次
End Sub这是我给的思路,希望大神能给一个完整的代码方案!或者其它思路也可以,只要可以把自动更新的内容保存到一列即可!E3的内容是来自于外部并且不断更新的,希望把E3更新过的数据按顺序保存到J列