遍歷行並在VBA Excel2010中編輯它們

Question

我正在創建一個帶有數據條目的接口。 然後將這些條目（每行1個）添加到同一行中的另一個條目中。 顯然，它沒有選擇權的行和上面開始第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 

一些條目甚至出現在列A和B，而其他人出現在行方式之下。

我很驚訝，我無法找到我的問題的解決方案，但也許你可以幫我:)

幫助深表感謝。提前致謝！

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