Excel VBA自動入力

Question

Excelにデータを別のシートにエクスポートするAccessでVBAを使用しています。データはフォーマットされていないので、フォーマットするマクロを作成します。輸出は、複数の場所の在庫データ（品目の価格と手元の数量）です。自動入力は、データの最後まで自動入力された価格*数量の計算になります。場所には、シート内に同じ量のデータがありません。私はもともと、すべてのシートを一緒にグループ化し、最初のシートをオートフィルしてみました。これはうまくいかなかった。誰でもマクロや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 

例えば：

EDIT＃1：

今dural()が働いている、我々はからそれを呼び出すことができます：

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