[vba学习]跨工作簿选择以及Range和Cells混用

[vba学习]跨工作簿选择以及Range和Cells混用

Sub objtest1()

'Worksheets("sheet3").Activate

'Worksheets("Sheet3").Range(Cells(1, 1), Cells(6, 8)).Select


Dim mySheet As Object

Set mySheet = Worksheets("sheet3")

mySheet.Activate

mySheet.Range(mySheet.Cells(1, 1), mySheet.Cells(6, 8)).Select

End Sub

若要跨工作簿用Range和Cells混用方式选择单元格，则一定要标明Cells的所属,即mySheet.Cell(1,1)，并要在选择单元格前先激活该工作簿：mySheet.activate

若使用注释中的方法，则会报1004错误