請各位大大先幫小弟看一下這組程式: Private Sub Worksheet_Calculate() Application.EnableEvents = True Dim i As Integer i = 3 Range("a2:e2").Copy Range("a" & i).PasteSpecial Paste:=xlPasteValues i = i + 1 End Sub 照小弟的想法:這個程式應該啟動後自動每次DDE有資料變動它就可以自己動作,可是事實 上則是要小弟進去VBA的程式裡按F5,而且只作了一次就不在作動了,為什麼????