行をループしてVBAで編集するExcel2010

Question

データエントリを持つインターフェイスを作成しています。 これらのエントリ（1行につき1つ）は、同じ行の別のエントリに追加されます。 どうやらそれが正しい行を選択し、他のものは方法以下の行に表示されている間エントリの一部も、列A及びBに表示された行の上4.

For Each row In Worksheets("A").Range("D4:D11") 'Start at row 4 

    .Cells(5, row) = wse.Cells(6, row) + wse.Cells(4, row) 
    'This is supposed to add entries from each looped row to cells in columns D and F into E. 

Next row 

を開始しません。

私は私の問題の解決策を見つけることができなかったことは非常に驚いて、しかし、多分あなたは私を助けることができます:)

ヘルプははるかに高く評価されます。前もって感謝します！

Answer 1

あなたのケースでは、rowは、それがRangeオブジェクトであるとは思われません。それをしなかった

For Each Rng In Worksheets("A").Range("D4:D11") 'Start at row 4 

    Worksheets("A").Cells(5, Rng.Row) = wse.Cells(6, Rng.Row) + wse.Cells(4, Rng.Row) 

Next Rng