將用戶提交的數據複製到另一個單獨的工作表上的下一個空行

Question

對於使用VBA/excel來說，除了基礎知識之外，我還是一個新手。

我面對的問題是：

背景
每天都有大量的excel表格必須被更新。這需要在表格底部的下一個空行上輸入一系列數據值。這些數據然後用於各種其他目的（每週報告，填充Access數據庫等）。

某些數據必須轉換爲不同的單位。我想在某種程度上使這個過程自動化，這樣用戶只需填寫一些字段並自動填充數據表。

我想有一個工作表上的用戶字段和另一個工作表上的原始數據表。理想情況下，一次點擊宏可以根據用戶在不同工作表上輸入的數據在原始數據表中生成一行新數據。

任何瞭解將不勝感激。如果這是一個不恰當的問題，請告訴我還有什麼我應該提供的！

Answer 1

沒有看到您的實際工作簿，我將提供一個簡化示例的解決方案。假設用戶在Sheet1上的單元格A1和B1中輸入新的數據值。 您希望將這些值添加到Sheet2上的下一個空行。

一旦用戶輸入的值，您可以運行使用此代碼宏：

Dim intNewRow As Long 
intNewRow = Sheets("Sheet2").Cells(1, 1).End(xlDown).Row + 1 
Sheets("Sheet2").Cells(intNewRow, 1) = Sheets("Sheet1").Cells(1, 1).Value 
Sheets("Sheet2").Cells(intNewRow, 2) = Sheets("Sheet1").Cells(1, 2).Value 

這可能是過於簡單化了，但你可以通過在公式的末尾添加數學運算更改單位。我認爲你正在尋找的關鍵是找到下一個空行。第二行代碼是什麼對你來說，並分配給變量intNewRow。