Excel VBA中Resize函数_金钟常鸣

http://blog.sina.com.cn/u/5443724069

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

Excel VBA中Resize函数

(2018-04-17 10:27:45)

标签：

编程

金钟常鸣

活力星语

excel

分类： VBA

（该文转自网站: http://www.exceltip.net/thread-5640-1-1.html 出处: Excel 技巧网)

Resize用于调整指定区域的大小，返回代表调整后的区域。
具体语法是： Range.Resize(RowSize,ColumnSize)
其中参数RowSize代表重置后的行数,ColumnSize代表重置后的列数。
两个参数皆可为可选参数，如果参数省略，则代表新区域的行数或者列数保持不变。
请看以下例子：

Sub a()
[A1].Resize(2, 1).Select
End Sub

该代码表示选择A1：A2，包含两行一列2个单元格，表示以A1为基准，重置两行一列，即选择A1：A2区域。
对于区域方面在重置，请看下面这个例子：

Sub Y()
Range("B1:C2").Resize(3, 4).Select
End Sub

这个例子代码是表示选择B1：E3,包含三行四列共12个单元格。该区域是以B1为基准，重置三行四列的区域。
例子3

Sub R2()
[B1:C2].Resize(1).Select
End Sub

例子3代码代表是选择B1:C1区域，将原区域两行重置为一行，而列数保持不变。
而对于有小数的行列，会进行四舍五入（0.5是舍掉的，若为0.51则入一位：2.5->2，而2.51-->3）：

Sub ae()
[B1:C2].Resize(2.5, 2.4).Select
End Sub

该代码是选择B1：C2区域，是以B1为基准，重置2行2列。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：在VB EXCEL中，Range("a1").CurrentRegion

后一篇：VB中，InStrRev函数（从尾部查找的函数）

新浪BLOG意见反馈留言板　欢迎批评指正