遍历行并在 VBA Excel2010 中编辑它们

Question

我正在创建一个带有数据条目的界面。然后将这些条目（每行 1 个）添加到同一行中的另一个条目。显然它没有 select 正确的行，而是从第 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

遍历行并在 VBA Excel2010 中编辑它们

Loop through rows and edit them in VBA Excel2010

excel

vba

for-loop

rows