选择包含数据的所有单元格

干得好:

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

或者,如果您不一定从A1开始:

Range("C6").Select  ' Select a cell that you know you populated'
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

CurrentRegion 所有物这将选择一个以空单元格为边界的连续区域,因此根据工作表的格式,这可能是一种更优雅的方法。

Range("A1").CurrentRegion.Select