根據計算的觸發器將一行復制到數據表中

Question

嘗試了幾種不同的方法後，我卡住了。基本上我有一張桌子，每隔30分鐘左右完成一條線。用戶將在一行中輸入3個數字，接下來的3行將被計算。我想使用其中一個計算行作爲觸發器將整行復制到數據庫表（sheet2）。在添加下一行時重複，等等。我似乎只能在第一行復制每一次。

該表被用作硬拷貝批記錄，所以我已經避開了構建FORM。我開始用下面這工作了1號線（也叫錄製的宏在一些頭數據複製）

`Private Sub Worksheet_Calculate() 
If IsNumeric(Range("$h$9")) Then 
    If Range("$h$9").Value >= 1 Then 
     Application.Run "Macro1" 
    End If 
End If 
End Sub ` 

宏1只複製某些標題形式的數據（日期/時間，機器信息等即是隻爲上述行&表輸入一次）。

我希望這是明確的，有任何問題請讓我知道

Answer 1

歡迎SO

嘗試使用類似下面的循環？根據需要更改i的上限，也可以使用某種形式的行計數器，如Cells(Rows.Count, 1).End(xlUp).Row

Private Sub Worksheet_Calculate() 
Dim i As Integer 
For i = 1 To 9000 
If IsNumeric(Cells(i, 8)) Then 
    If Cells(i, 8).Value >= 1 Then 
     Application.Run "Macro1" 
    End If 
End If 
Next i 
End Sub