Excel-VBA：UsedRange.Rows.Count取不到最后一行的行号（行标）

Sheet1.UsedRange.Rows.Count
'一般是用此种方式能取到最后一行的行标，但是如果Excel表的第一行是空的，就会导致只取Used Range（使用区域）的总行数。'举个栗子，如果一个表,只有A2单元格里有内容，那上一条的返回值就是1，因为使用区域只有一行的。'取到最后一行的行标方法如下：
Sheet1.UsedRange.Cells(sht3.UsedRange.Rows.Count,1).row
'Cells(使用区域的最后一行,第一列).行标'以下两上函数，一个取最后的行号，一个取最后的列号'根据提供的Range，得到最后一行行号
Function GetLastRowNo(ByRef Rng As Range) As IntegerGetLastRowNo = Rng.Cells(Rng.Rows.Count, 1).Row
End Function'根据提供的Range，得到最后一列的列号
Function GetLastColNo(ByRef Rng As Range) As IntegerGetLastRowNo = Rng.Cells(1, Rng.Column.Count).Column
End Function'调用
GetLastRowNo(Sheet1.UsedRange)
GetLastColNo(Sheet1.UsedRange)

Excel-VBA：UsedRange.Rows.Count取不到最后一行的行号（行标）相关推荐

Excel宏取得sheet中最后一行的行号
近日用到Excel宏,需要取得最后一行的行号,从网上找了找,方法很多,以下这个方法出自CSDN论坛帖子, 方法很简单,而且可以正常统计隐藏行(这个是关键!) n = ActiveSheet.UsedR ...
java excel 插入新行_复制一行，在多个工作表Excel VBA上插入多个带有粘贴信息的新行...
Data这是每个地区代码的所有项目我在同一工作簿中有一个"新项目"工作表,一个"数据"工作表和一个"视图"工作表 . 在我的"N ...
利用word的VBA，为代码统一表格宽度，底色及行号
如果文档中的代码表格时,感觉还是很快速有用的. Sub HangHao() ' ' hanghao 宏 ' 'Dim parag As ParagraphDim nLineNum: nLineNum ...
关于 Excel 2003 vba usedrange属性
关于 Excel 2003 vba usedrange属性 vba usedrange属性如果您想知道当前工作表中所有已使用的单元格区域的大小,或者您想引用当前工作表中已使用的区域,那么您可能就要想 ...
【Excel VBA】超级实用的UsedRange
引言之前写过一篇<[Excel VBA]得到最后数据的行数>,提到得到最后数据的行数使用的是End(xlUp)的方法,使用这种方法的缺点是自动化程度不够高,不能较为智能的判断整个数据区的 ...
Excel·VBA按行拆分工作表
对应之前文章<Excel·VBA按列拆分工作表>,对Excel表格数据按照固定行数,将工作表拆分工作表按行拆分为工作表 Sub 工作表按行拆分为工作表()'当前工作表(worksheet ...
巧用Excel VBA 快速编排考场座位
百度文库下载地址: 学校考试考场编排软件(单年级) http://wenku.baidu.com/view/464023029ec3d5bbfc0a740f.html 学校考试考场编排软件(多年级) ...
Excel+VBA+之快速上手
第一章 VBA语言基础第一节标识符一．定义标识符是一种标识变量.常量.过程.函数.类等语言构成单位的符号,利用它可以完成对变量.常量.过程.函数.类等的引用. 二．命名规则 1 ...
EXCEL VBA 备忘录
最最基础的什么录制,加快捷键,被禁用宏,--等基本操作直接过滤,这些还不会的,请百度.此文主要备忘常用的编程语句或语法. range("A1").value 对象和属性之间 ...

Excel-VBA：UsedRange.Rows.Count取不到最后一行的行号（行标）

Excel-VBA：UsedRange.Rows.Count取不到最后一行的行号（行标）相关推荐

最新文章

热门文章