VBA只根据单元格有无内容获取表格的最大行号和列号

有些部门发来的表格完全是按照以前的模板写的，这种情况使用UsedRange属性时会把第15行和第16行一起算进去

 

有些部门漏写，这种时使用Range("A65536").end(3).row判断行数时，会把第14行遗漏

 还有的部门更加离谱，汇总后的表格还要手动整理

 

 所以为了准确获取表格所在位置，只根据有无内容判断表格的行号，我写了这样一段程序

Sub 判断当前表格的数据区域()
Dim datarange As Range, rangerow, rangecol, maxrow, minrow, maxcol, mincol%
'maxrow为有数据区域的最大行号
'minrow为有数据区域的最小行号
'maxcol为有数据区域的最大列号（数字）
'mincol为有数据区域的最小列号（数字）

Set datarange = ActiveSheet.UsedRange
rangerow = datarange.Rows.Count
rangecol =