Excel VBA自動填充

Question

我在Access中有VBA，可以將數據導出到Excel到單獨的工作表中。 數據以未格式化的格式出現，因此我將創建一個將其格式化的宏。 出口是多個地點的庫存數據（物品價格和現有數量）。 自動填充將自動計算價格*數量，並自動填充到數據末尾。 這些地點的工作表中沒有相同數量的數據； 我最初嘗試將所有工作表分組在一起，然后自動填充第一張工作表。 這沒有用。 誰能使用宏或VBA引導我找到執行此操作的正確方法？

注意：當輸入新的庫存盤點時，數據量可能會更改，因此代碼無法將每張工作表中的特定單元格引用為最后一行。

感謝您的幫助！

Answer 1

這將F列用於產品。 選擇每個工作表並運行此宏：

Sub dural()
    Dim i As Long, N As Long
    N = Cells(Rows.Count, "D").End(xlUp).Row
    For i = 1 To N
        Cells(i, "F") = Cells(i, "D") * Cells(i, "E")
    Next i
End Sub

例如：

編輯＃1：

現在dural()可以正常工作了，我們可以通過以下方式調用它：

Sub MAIN()
    Dim i As Long
    For i = 3 To Sheets.Count
        Sheets(i).Activate
        Call dural
    Next i
End Sub