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属性,这个后面会有教程单独来讲。

子曰:用之则行,不用则藏。

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

(0)

相关推荐