Excel VBA:调整指定区域的大小——Range.Resize 属性

Range.Resize 属性

调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。

语法

表达式.Resize(RowSize, ColumnSize)

表达式   一个返回 Range 对象的表达式。

参数

名称	必选/可选	数据类型	说明
RowSize	可选	Variant	新区域中的行数。如果省略该参数，则该区域中的行数保持不变。
ColumnSize	可选	Variant	新区域中的列数。如果省略该参数。则该区域中的列数保持不变。

返回值
区域

示例

本示例调整 Sheet1 中选定区域的大小，使之增加一行和一列。

Worksheets("Sheet1").Activate
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 1, numColumns + 1).Select

本示例假定在 Sheet1 中有一个包含标题行的表。本示例选定该表，但不选定标题行。运行本示例之前，活动单元格必须处于该表中。

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count).Select

source:VBA Help