1、currentRegion 属性返回Range对象，该对象代表当前的区域。

2、当前区域是一个边缘是任意空行和空列组合成的范围。

(资料图片)

3、说明：该属性对于很多操作是很有用的。

4、例如：自动将选定区扩展到包含整个当前区域，如AutoFormat方法。

5、该属性不能用于被保护的工作表。

6、使用CurrentRegion属性相当于在Excel工作表中选择菜单“编辑—定位”命令，在弹出的“定位”对话框中单击“定位条件”按钮，然后在“定位条件”对话框中选中“当前区域”选项按钮，或者相当于使用Ctrl+Shift+*组合键。

7、扩展资料VBA CurrentRegion的典型应用示例：返回指定(或活动)单元格所在区域中标题行的行数Worksheets("sheet1").Range("H2").Value = _Worksheets("sheet1").Range("A1").CurrentRegion.ListHeaderRows2、返回指定(或活动)单元格所在区域的列数Worksheets("sheet1").Range("H4").Value = _Worksheets("sheet1").Range("A1").CurrentRegion.Columns.Count3、返回指定(或活动)单元格所在区域的单元格数Worksheets("sheet1").Range("H5").Value = _Worksheets("sheet1").Range("A1").CurrentRegion.Cells.CountcurrentRegion 属性返回Range对象，该对象代表当前的区域。

8、当前区域是一个边缘是任意空行和空列组合成的范围。

9、只读。

10、说明该属性对于很多操作是很有用的。

11、例如：自动将选定区扩展到包含整个当前区域，如AutoFormat方法。

12、该属性不能用于被保护的工作表。

13、VBA示例本示例选定工作表 Sheet1 上的当前区域。

14、Worksheets("Sheet1").ActivateActiveCell.CurrentRegion.Select本示例假定在工作表 Sheet1 中有一个包含标题行的表。

15、本示例选定该表，但不选定标题行。

16、运行本示例之前，活动单元格必须处于该表中。

17、Set tbl = ActiveCell.CurrentRegiontbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Select。

本文到此分享完毕，希望对大家有所帮助。