vba - 使用 ActiveCell.Offset(0, 1).Value 在 VBA 中选择多个单元格

Question

我从 VBA 开始，必须编写一个程序，该程序能够从选定的单元格中检索值，该单元格将用作引用。

当我使用 Activecell 函数选择一个单元格并使用 ActiveCell.Offset(0, 1).Value 等时，我能够做到这一点。但是如何在同时选择多个单元格的同时做同样的事情并且能够一次获取 1 个单元格值并执行 Activecell.Offset... 然后识别第二个单元格值并检索适当的信息等等。

使用宏记录器我看到当我选择多个值时它指向

Range("Y8,Y9,Y10,Y11").Select 'etc....

感谢您的帮助，希望我已经足够准确地说明了我正在尝试做的事情。

非常感谢奥利维尔

Answer 1

要么使用

Range(ActiveCell, ActiveCell.Offset(0, 1))

或

ActiveCell.Resize(1, 2)

然后就可以这样使用了

For Each cell In Range(ActiveCell, ActiveCell.Offset(0, 1))
    Debug.Print cell.Value
Next cell

相当于

Range(ActiveCell, ActiveCell.Offset(0, 1)).Select ' or ActiveCell.Resize(1, 2).Select
For i = 0 To 1
    Debug.Print ActiveCell.Offset(0, i)
Next i