关于offset和resize的用法

Offset 属性 （Range 对象）

返回一个 Range 对象，该对象代表某个指定区域以外的区域。只读。

expression.Offset(RowOffset, ColumnOffset)

expression      必需。该表达式返回一个 Range 对象。

RowOffset Variant 类型，可选。该区域将偏移的行数（正值、负值或 0（零））。正值表示向下偏移，负值表示向上偏移，默认值为 0。

ColumnOffset Variant 类型，可选。该区域将偏移的列数（正值、负值或 0（零））。正值表示向右偏移，负值表示向左，默认值为 0。

示例

本示例激活 Sheet1 上活动单元格向右偏移三列、向下偏移两行处的单元格。

  Worksheets("Sheet1").Activate ActiveCell.Offset(rowOffset:=3, columnOffset:=2).Activate 本示例假设 Sheet1 中包含一个具有标题行的表格。本示例先选定该表格，但并不选择行首。  

  运行本示例之前，活动单元格必须位于表格中。  

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

Resize 属性

参阅应用于示例特性

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

expression.Resize(RowSize, ColumnSize)

expression      必需。该表达式返回要调整大小的 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   

 今天你 菊子曰了么？

转载于:https://www.cnblogs.com/xiehui/archive/2011/03/03/2004283.html