EXCEL-VBA循环更改范围

Question

Set rng = Worksheets("Sheet1").Range("B2")

我具有上述要求，并希望运行一个循环来更改我使用/评估的范围。 我尝试了以下变化。

for x = 2 to 10
Set rng = Worksheets("No-Funding").Range(x & "2")
Next X

我已经进行了一些调查，发现了其他堆栈溢出： Excel VBA循环公式来更改范围在这种情况下，我还是无法理解。

我的代码也不能使用单元格，我已经尝试过了，只能使其与Range一起使用。 感谢您提供的任何帮助！

Answer 1

对于严格的数字增量，请尝试，

Set rng = Worksheets("No-Funding").Cells(x, 2)

可以通过考虑ASCII字符来获得xlA1样式参考。

Set rng = Worksheets("No-Funding").Range(Chr(64 + x) & 2)

Answer 2

尝试这个：

For x = 2 To 10
    Set rng = Worksheets("No-Funding").Cells(2, x)
Next x

---

据我所知，对于VBA来说，是否使用函数.Range或.Cells都是.Cells ，因为它们都返回对象或Range类型。

Answer 3

采用

Set rng = Worksheets("Sheet1").Range("B2").Offset(0,x)

移动到另一列。 更好了

Dim values as Variant, rng as Range
Set rng = Worksheets("Sheet1").Range("B2").Resize(10,1)
values = rng.Values2

For i=1 to 10
   values(i,1) = 2*values(i,1)
Next i

rng.Values2 = values