VBA学习笔记之Range.Resize属性'Range.Resize 属性
'调整指定区域的⼤⼩。返回 Range 对象，该对象代表调整后的区域。
'语法
'表达式.Resize(⾏数, 列数)
'表达式 ⼀个返回 Range 对象的表达式。
1Sub test()
2 [a1].Resize(2, 3).Select
3 [a1].Resize(2).Select
4 [a1].Resize(, 3).Select
5End Sub
注意：Resize是Range本⾝开始从"1"算起的，[a1].resize(1,1);
但是Offset是Range本⾝开始从"0"算起的，[a1].offset(0,0);
以上两⾏代码都返回a1这个区域
简记：Resize包括原本区域进⾏扩展；Offset不包括原本区域进⾏偏移
1Sub保存()'把sheet1⾥的部分数据拷贝到sheet2
2Dim 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)
7End Sub
注意：这⾥的k的意义是重复运⾏次过程时数据不会重叠
效果图：vba自学好学吗

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。