Question

y = 3
For x = 1 To 600
If Cells(x, y) = "CD Sector Average" Then
    CDPerc = Cells(x, y + 7).Value
    CDComp = Cells(x, y + 9).Range: Cells(x, y + 20).Range
End If

这只是我正在做的事情的一部分，但我想将同一行中的单元格范围设置为右边的文本9列到20作为变量。该行中还有其他数据，因此我无法将整行设置为变量。有没有办法在不将每个单元格设置为不同变量的情况下执行此操作？

Answer 1

如果CDComp是Range，那么您需要：

Set CDComp = Range(Cells(x, y + 9), Cells(x, y + 20))

或者如果它是Variant并且您正在尝试加载数组：

CDComp = Range(Cells(x, y + 9), Cells(x, y + 20)).Value

使用相对引用将范围设置为变量vba

1 个答案: