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