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