如何分配細胞的範圍的範圍內變化

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