Как назначить диапазон ячеек Диапазона переменной

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