如何判断、快速、智能的得出,EXCEL表中的数据区域,最大的行是多少,最大的列又是多少?
前提条件是:EXCEL表数据可随时增加或删除;有数据的区域里面,有空行或空列甚至是空的单元格;在如此复杂的条件下,如何随时随地得出该工作表,有效数据区域的最大行数是多少,最大列数又是多少?
我们看下表!
这就是一张存在空行空列空单元格的数据表,现在,我们要动态的统计出,该表的有效数据区域,最大行数是多少、最大列数又是多少?
要解决这个问题,最好使用VBA来实现,当然,代码非常非常简单,只需要使用到Sheet1.UsedRange.Rows.Count和Sheet1.UsedRange.Columns.Count就行了!
首先,选择Sheet1工作表名,同时点击右键,在弹出的快捷菜单中选择“查看代码”,如下图!
在打开的VBA代码窗口中,像下图一样,直接输入代码即可完成!
为方便大家的学习,代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
H = Sheet1.UsedRange.Rows.Count
L = Sheet1.UsedRange.Columns.Count
MsgBox "有效数据:最大行:" & H & "最大列:" & L
End Sub
您就直接复制如上代码粘贴到VBA窗口就行了,记得保存好,然后返回到EXCEL窗口,下面,我们就来看结果吧!
无论您选择哪个单元格,都会得出当前工作表的有效数据区域的最大行数和列数;就这么简单,也是这么方便。
此功能的应用非常实用,也很广泛,以后的几篇文章中,再给大家介绍介绍有关这方面的具体应用。