如何將單元格區域存儲到變量中？

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