【原】Usedrange与Currentregion的区别

如下表格，表格中只有这些内容，不再有其他内容。那么，鼠标放在A1单元格中，当前区域是指A1:F10，因为表格没有其他的内容，此时用过的区域也是A1:F10这些范围。

如果我们用语句 range("A1:F10") 可以将A1:F10区域进行选择，但是这个范围将固定不变，如果数据表不断添加，我们可以使用一段代码自动扩展。

可以模仿Excel中的操作，我们仅需点击A1:F10中的任何一个单元格，然后CTRL+A。

使用VBA代码，我们可以按如下操作。

Private Sub CommandButton1_Click() Range("a1").CurrentRegion.SelectEnd Sub

这个currentregion就相当于当前区域，也就是按CTRL+A选择的区域。

Range("a1").CurrentRegion.Select相当于鼠标单击A1，然后CTRL+A

假设后来，添加了一个内容，如下表，写了”制表人：张三”现在这个单元格将是最后一个单元格，用过的单元格将是A1:F17。

使用以下代码可以选择用过的单元格，中间有不相邻的空行也会选择到里面。

Private Sub CommandButton1_Click() ActiveSheet.UsedRange.SelectEnd Sub

如果要判断有效区域中最后一行是多少行，后面的说明文字如 "制表人"  不包含在里面，则可以使用以下代码来判断。

Private Sub CommandButton1_Click() i=Range("a1").CurrentRegion.rows.count msgbox "最后一行的行号是" & iEnd Sub

当然也可以用end属性，这个后面会有教程单独来讲。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。