VBA如何获取下一个单元格地址

Question

我正在编写一段代码来执行循环，我想要做的是将单元格地址J2存储在变量中，然后每次代码运行循环时将其获取到转到下一个单元格，即 J2 将转到 J3，然后 J3 将转到 J4 等等。

这是我目前所拥有并尝试过的:

Index = 0
CurrentCell = Range("J2").Address

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

RowsCount = Application.CountA(Range("A3:A" & Rows.Count))

While Index < RowsCount

    CurrentCell = CurrentCell + 1
    Recipients = CurrentCell + ";"
    Index = Index + 1

Wend

有人可以帮忙吗？

Answer 1

不确定 currentcell 的用途(所以我已将其删除)，但 set rng 行将设置为每一行

将循环替换为以下内容

While Index < RowsCount

    set rng = range("J2").offset(0+Index,0)
    Recipients = Recipients & rng.value & ";"
    Index = Index + 1

Wend