如何將單元格范圍分配給Range變量

Question

我的環境：MS Excel 2013

我想用下面的代碼將單元格范圍分配給我的范圍變量

Dim strSourceFile As String
Dim wbSource As Workbook

strSourceFile = "D:\csv1.csv"
Set wbSource = Workbooks.Open(strSourceFile)
Set rngY = wbSource.Sheets(1).Range(Cells(2, RefCol), Cells(LastSource, RefCol))

嘗試為rngY賦值時，最后一行出現錯誤。

Run-time error '1004':
Application-defined or object-defined error

Answer 1

Cells(2, RefCol)引用活動工作表上的單元格。 您必須限定所有范圍對象。

范例1：

Set rngY = wbSource.Sheets(1).Range( wbSource.Sheets(1).Cells(2, RefCol),  wbSource.Sheets(1).Cells(LastSource, RefCol))

范例2：

With wbSource.Sheets(1)
    Set rngY = .Range( .Cells(2, RefCol), .Cells(LastSource, RefCol))
End With