每个循环引用上一个和下一个项目的 VBA

Question

新手问题。

下面的代码是作为示例给出的，因此我不指具体情况。

当执行如下循环时，我可以轻松引用之前和即将到来的项目:

for i=1 to 10 
    for j = 1 to 10
        cells(i,j) = cells(i+1,j)
    next j
next i

如何使用下面的代码完成上述操作？

dim rng, loopCell as Range
set rng = range(...)

for each loopCell in rng
    loopCell = UPCOMING OR PREVIOUS loopCell
next loopCell

Answer 1

使用偏移属性。语法为 .Offset(行索引, 列索引)

for each loopCell in rng
    loopCell = loopcell.Offset(-1, 0)
next loopCell

上一页

或者

for each loopCell in rng
    loopCell = loopcell.Offset(1, 0)
next loopCell

下一步

希望有帮助