可以写在以下事件李 Private Sub Worksheet_Change(ByVal Target As Range) if target=range("a1") then range("a1").end(xldown)=range("a1") end if End Sub 所以当你数字有变动 就会到这里面执行复制的程式 ※ 引述《meatus (呼吸之间)》之铭言： : 请教一下大家 : 假设现在已经用dde连结到excel了 : 如下图 : A B : 1 时间 量 : 2 0000 50 : 由於是动态连结，所以excel里的储存格会随着时间变动而变动 : 比如说如果过了5分钟，那麽就会变成下图 : A B : 1 时间 量 : 2 0005 38 : 再过5分钟 : A B : 1 时间 量 : 2 0010 63 : 而现在的问题是 : 我要如何改变这样的储存格式呢？ : 比如我想将储存格式 : 改成如下图 : A B : 1 时间 量 : 2 0000 50 : 3 0005 38 : 4 0010 63 : 5 0015 17 : 6 0020 23 : ' ' : ' ' : ' ' : 也就是会随着时间变动，然後储存成清单的样式 : 请问一下这样的vba要如何写呢？ : 不然给一个方向也可，比如说可以查哪本书，或是哪里有类似的方式可以参考 : 感激不尽～～ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 61.217.220.253