相关疑难解决方法(0)

人们普遍认为这不是"最佳实践".

dim rng as range
with thisworkbook    '<~~ possibly set an external workbook 
    with .worksheets("sheet1")
        set rng = .range(cells(2, 1), cells(rows.count, 1).end(xlup))
    end with
end with

定义Range对象范围的两个Range.Cells属性将默认为ActiveSheet属性.如果这不是Sheet1(在With ... End With语句中定义为.Parent),则赋值将失败,

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

解决方案:.Cells不要使用Cells.案件结案.

但...

当Range.Cells属性都继承在With ... End With语句中定义的.Parent工作表属性时,是否.在此Range对象定义中是必需的？

怎么会这样,

dim rng as range
with thisworkbook    '<~~ possibly set an external workbook …