使用范围变量...语法

Question

我有以下代码：

Set rFinder = wkEnrollment.Range("EnrollmentIDs")  
With Range(rFinder)
    Set LastCell = .Cells(.Cells.Count)
End With

我执行With Range(rFinder)行时出错。 rFinder被Range暗淡。错误是：

  

对象'_Global'的方法'范围'失败

我不确定这方面的语法？

Answer 1

由于rFinder已经是Range对象，因此您只需使用：

Set rFinder = wkEnrollment.Range("EnrollmentIDs")  
With rFinder
    Set LastCell = .Cells(.Cells.Count)
End With