VBA学习笔记之Range.Resize属性

标签：blog   fse   test   重叠   工作   一个   select   com   包括   

‘Range.Resize 属性
‘调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。
‘语法
‘表达式.Resize(行数, 列数)
‘表达式 一个返回 Range 对象的表达式。

1 Sub test()
2 [a1].Resize(2, 3).Select
3 [a1].Resize(2).Select
4 [a1].Resize(, 3).Select
5 End Sub

注意：Resize是Range本身开始从"1"算起的，[a1].resize(1,1);

但是Offset是Range本身开始从"0"算起的，[a1].offset(0,0);

以上两行代码都返回a1这个区域

简记：Resize包括原本区域进行扩展；Offset不包括原本区域进行偏移

1 Sub 保存()‘把sheet1里的部分数据拷贝到sheet2
2 Dim i%, j%, k%
3 i = [a1].CurrentRegion.Rows.Count - 1
4 j = [a1].CurrentRegion.Columns.Count
5 k = Application.CountA(Sheet2.Columns(1))‘调用工作表函数，计算sheet2第一列非空行数，使得偏移后数据不重叠
6 [a2].Resize(i, j).Copy Sheet2.[a1].Offset(k)
7 End Sub

注意：这里的k的意义是重复运行次过程时数据不会重叠

效果图：

VBA学习笔记之Range.Resize属性

标签：blog   fse   test   重叠   工作   一个   select   com   包括   

原文地址：http://www.cnblogs.com/gilgamesh-hjb/p/7421316.html