使用VBA

開啟VBA編輯器，插入模組

複製下述程式碼：

Sub StartTimer() Dim i!, t i = Sheets(1).[B65536].End(xlUp).Row t = Sheets(1).Cells(i + 1, 1) Application.OnTime earliesttime:=t, procedure:="Process", schedule:=True End Sub

Sub Process() Dim i!, t With Sheets(1) i = .[B65536].End(xlUp).Row t = .Cells(i + 1, 1) On Error Resume Next Application.OnTime earliesttime:=t, procedure:="Process", schedule:=False On Error GoTo 0 .Range(.Cells(i, 2), .Cells(i, 3)).Copy .Cells(i + 1, 2) End With Application.CutCopyMode = xlCopy StartTimer End Sub

雙擊Workbook，複製工作簿open程式碼：

Private Sub Workbook_Open() StartTimer End Sub

附件請參考。（BC資料為模擬資料請使用自己的資料更新內容）

如果是用了函式的，excel中會自動重新整理。

在excel中，使用函式、公式等，只要資料有變化，就會自動重新整理資料的。

如果沒有使用函式、公式，那就只有手動更改資料。