任一用途

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

我知道这有点晚了，OP可能有解决方案，但我认为他想要的可以通过使用Selection来实现，如：

Dim r As Range, c As Range

If TypeOf Selection Is Range Then Set r = Selection Else Exit Sub

For Each c In r
    '/* put the code you want here */
    Debug.Print c.Address
    DebUg.Print c.Offset(0,1).Value
Next

作为答案发布，以防有人偶然发现相同的问题/事项/需求。

我今天正想弄清楚这个问题，偶然发现了这个帖子，所以我想我应该更新它，在那里我找到了一个简单的答案。
我从https://excelchamps.com/vba/range-offset/开始
Range(Range("A1").Offset(1, 1), Range("A1").Offset(5, 2)).Select
因此，OP希望使用ActiveCell作为起始位置，并使用Offset选择任意范围，结果如下所示：

Range(ActiveCell.Offset(1, 1), ActiveCell.Offset(5, 2)).Select