【分享成果,随喜正能量】修行佛法从哪儿下手呢?要从信心下手。佛法大海,唯信能入。三皈依就是世间获得吉祥如意,出世间获得究竟解脱的正因,慎勿退失,谨守修行。。
《VBA代码解决方案》(10028096)这套教程是我最早推出的教程,目前已经是第三版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
这套教程共三册,一百四十七讲,内容覆盖较广,也是初级和中级间的过渡教程,改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第6讲:利用VBA获得指定行、列中最后一个非空单元格
第六讲:利用VBA获得指定行、列中最后一个非空单元格
使用VBA对工作表进行操作时,经常需要定位到指定行或列中最后一个非空单元格,此时可以使用Range对象的End属性,在取得单元格对象后便能获得该单元格的相关属性,如单元格地址、行列号、数值等,如下面的代码所示。
1 利用End()属性获得指列中的最后一个非空单元格的代码
Sub mynz_6_1() '第6讲 利用VBA获得指定行、列中的最后一个非空单元格
Dim rng As Range
Set rng = Sheets("6").Range("A1048576").End(xlUp)
MsgBox "A列中最后一个非空单元格是" & rng.Address(0, 0) & ",行号" & rng.Row & ",数值:" & rng.Value
Set rng = Nothing
End Sub
2代码的解读及实现效果
代码解析:
1) ENDRow过程使用消息框显示工作表中A列最后非空单元格的地址、行号和数值。
2) End属性返回一个Range对象,该对象代表包含源区域的区域尾端的单元格。等同于按键<End+向上键>、<End+向下键>、<End+向左键>或<End+向右键>,
语法如下:
expression.End(Direction)
参数expression是必需的,一个有效的对象。
参数Direction是可选的,所要移动的方向,可以为下表所示的XlDirection 常量之一。如下表:
c) Range对象的End属性返回的是一个Range对象,因此可以直接使用该对象的属性和方法。
运行ENDRow过程结果下图所示。
3 获得指行中的最后一个非空单元格的代码
通过修改相应的参数,能够获得指定行中最后一个非空单元格,如下面的代码所示。
Sub mynz_6_2() '第6讲 利用VBA获得指定行、列中的最后一个非空单元格
Dim rng As Range
Set rng = Sheets("6").Range("xfd1").End(xlToLeft)
MsgBox "第一行中最后一个非空单元格是" & rng.Address(0, 0) & ",列号" & rng.Column & ",数值:" & rng.Value
Set rng = Nothing
End Sub
代码解析:过程使用消息框显示工作表中第一行最后一个非空单元格的地址、列号和数值、
运行效果:
上面的代码中充分应用了End属性,在实际的工作中我们也是经常利用到的一个属性,用于检测数据的录入情况,运行后可以知道非空单元格的数目多少,然后可以利用FOR,NEXT
循环,这样可以减少内存的使用,提高程序的运行效率。
今日内容回向:
1 expression.End(Direction)END属性用哪些利用价值。
2 Direction 值有哪些?
本讲内容参考程序文件:VBA代码解决方案(1-19).xlsm
我20多年的VBA实践经验,全部浓缩在下面的各个教程中:文章来源:https://www.toymoban.com/news/detail-688408.html
文章来源地址https://www.toymoban.com/news/detail-688408.html
到了这里,关于第6讲:利用VBA获得指定行、列中最后一个非空单元格的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!