VBA中经常需要对某些区域选定并复制,本接介绍Selection的用法 ,Selection的含义就是代表已经选定的某个单元格或者某个区域。实例代码如下:
Sheets(1).Range("a1").Select
Sheets(1).Range(Selection, Selection.End(xlDown)).Select
Sheets(1).Range(Selection, Selection.End(xlToRight)).Select
lastrw = Selection.Rows.Count
lastcl = Selection.Columns.Count
Selection.Copy Workbooks("全部.xlsm").Sheets(1).Range("a1")
xlDown表示选择某单元列向下一直选择到最后有数据的列,一般是选择到列末,要注意的是本列中间不能有空单元格,否则就不能按照我们的思路选择到表格的最后一个数据单元格,程序也不会达到预期目的甚至很难查到复制不到我们想要的数据的原因。
xlToRight表示选择某单元列向右边一直选择到最后有数据的行单元格,一般意思就是选择到行末,当然也和xlDown一样需要注意中间不能出现空单元格
第二行和第三行代码结合就是选定"a1"单元为起点的左上角到数据区的右下角区域。