VBA学习笔记之Range.Resize属性

'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的意义是重复运行次过程时数据不会重叠

效果图：

转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7421316.html

VBA学习笔记之Range.Resize属性相关推荐

VBA学习笔记之Range.EntireRowRange.EntireColumn属性
'Range.EntireRow 属性 '返回一个 Range 对象,该对象表示包含指定区域的整行(或多行). '语法 '表达式.EntireRow '表达式一个代表 Range 对象的变量. 'R ...
VBA学习笔记8：单元格的合并与拆分
VBA学习笔记8:单元格的合并与拆分如下图,需要实现1图到2图(单元格合并),或2图到1图(单元格拆分). 1图: 2图: 合并单元格代码如下: Sub 合并单元格()Dim k%, rng As ...
Excel VBA 学习笔记13：单元格的格式
Excel VBA 学习笔记13:单元格的格式 NumberFormat 属性 (Excel) vba excel 单元格格式设置 Excel VBA 单元格格式 python解决SNIMissing ...
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
VBA学习笔记5:将同一工作簿的数据按照类别拆分为多个工作簿 1.对每行数据按照类别所在列进行循环,判断某类别的工作簿是否存在: 2.如果不存在,则新建工作簿并将该行数据复制粘贴: 3.如果存在则打开 ...
VBA学习笔记3：合并同一工作簿下的多个表格
VBA学习笔记3:合并同一工作簿下的多个表格 1.建立一个新的汇总表: 2.将其他sheet数据复制到汇总表中. 效果如下: 需要将3个sheet的表的数据汇总起来汇总后的数据: 代码如下: Sub ...
VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接
VBA学习笔记1:将同个文件夹中的工作簿汇总为一个工作簿,并建立目录超链接 1.将文件夹中的xlsx文件名复制到新工作簿: 2.将文件夹中的xlsx数据簿中的sheet复制到新表并重命名: 3.插入超 ...
VBA学习笔记（9）--生成点拨（1）
VBA学习笔记(9)--生成点拨(1) 说明(2017.3.26): 1. 还没写完,写到新建文件夹了,下一步新建word,重命名,查找点拨,把点拨复制进去,因为要给点拨编号,应该会很麻烦 1 Pub ...
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮:新建一个我的菜单按钮设置对应的宏过程名称为 [我的菜单宏] 点击按钮弹窗信息,信息可自定义设置详细代码如下: Sub 新建右键菜单()Dim 菜单 ...
Python 学习笔记列表 range() xxx XXX
Python 学习笔记列表 range() xxx XXX print("-" * 30) for value in range(1, 5):print(value)number ...
VBA学习笔记2：将工作簿的表格拆分为工作簿
VBA学习笔记2:将工作簿的表格拆分为工作簿 1.判断原有工作簿的sheet是否需要拆分: 2.如需拆分则创建新表: 3.将原sheet复制到新建的工作簿中. 效果如下: 代码执行前,有1个工作簿,需 ...

VBA学习笔记之Range.Resize属性

VBA学习笔记之Range.Resize属性相关推荐

最新文章

热门文章