遍历行并在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