如何将单元格区域存储到变量中？

Question

所以，我希望做一个“更好的”参考一单元格范围的SOA不具有复制/粘贴在我的方法，但下面的代码不起作用：

Dim cellRange As Range 
' fieldIndex = 1, startRow = 10, lastRow = 20 
cellRange = s.Range(Cells(startRow, fieldIndex), Cells(lastRow, fieldIndex)) 

我缺少什么？我可以用其他方式使用它只是罚款：

s.Range(Cells(startRow, fieldIndex), Cells(lastRow, fieldIndex)).Value = "bob" 

Answer 1

您需要使用Set的对象就像一个范围：

Dim cellRange As Range 
' fieldIndex = 1, startRow = 10, lastRow = 20 
Set cellRange = s.Range(Cells(startRow, fieldIndex), Cells(lastRow, fieldIndex)) 

Answer 2

正如希德建议您可能还需要澄清的细胞部分，如这例如。

With s 
    Dim cellRange As Range 
    ' fieldIndex = 1, startRow = 10, lastRow = 20 
    Set cellRange = .Range(.Cells(startRow, fieldIndex), .Cells(lastRow, fieldIndex)) 
End with