第6讲:利用VBA获得指定行、列中最后一个非空单元格

这篇具有很好参考价值的文章主要介绍了第6讲:利用VBA获得指定行、列中最后一个非空单元格。希望对大家有所帮助。如果存在错误或未考虑完全的地方,请大家不吝赐教,您也可以点击"举报违法"按钮提交疑问。

【分享成果,随喜正能量】修行佛法从哪儿下手呢?要从信心下手。佛法大海,唯信能入。三皈依就是世间获得吉祥如意,出世间获得究竟解脱的正因,慎勿退失,谨守修行。。

《VBA代码解决方案》(10028096)这套教程是我最早推出的教程,目前已经是第三版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。

这套教程共三册,一百四十七讲,内容覆盖较广,也是初级和中级间的过渡教程,改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第6讲:利用VBA获得指定行、列中最后一个非空单元格第6讲:利用VBA获得指定行、列中最后一个非空单元格,VBA,OFFICE,开发语言

第六讲:利用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 常量之一。如下表:

第6讲:利用VBA获得指定行、列中最后一个非空单元格,VBA,OFFICE,开发语言

c) Range对象的End属性返回的是一个Range对象,因此可以直接使用该对象的属性和方法。

运行ENDRow过程结果下图所示。

第6讲:利用VBA获得指定行、列中最后一个非空单元格,VBA,OFFICE,开发语言

3 获得指行中的最后一个非空单元格的代码

通过修改相应的参数,能够获得指定行中最后一个非空单元格,如下面的代码所示。

Sub mynz_6_2() '第6讲 利用VBA获得指定行、列中的最后一个非空单元格

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim rng As Range

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set rng = Sheets("6").Range("xfd1").End(xlToLeft)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox "第一行中最后一个非空单元格是" & rng.Address(0, 0) & ",列号" & rng.Column & ",数值:" & rng.Value

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set rng = Nothing

End Sub

代码解析:过程使用消息框显示工作表中第一行最后一个非空单元格的地址、列号和数值、

运行效果:

第6讲:利用VBA获得指定行、列中最后一个非空单元格,VBA,OFFICE,开发语言

上面的代码中充分应用了End属性,在实际的工作中我们也是经常利用到的一个属性,用于检测数据的录入情况,运行后可以知道非空单元格的数目多少,然后可以利用FOR,NEXT

循环,这样可以减少内存的使用,提高程序的运行效率。

今日内容回向:

1 expression.End(Direction)END属性用哪些利用价值。

2 Direction&nbsp;值有哪些?

本讲内容参考程序文件:VBA代码解决方案(1-19).xlsm

第6讲:利用VBA获得指定行、列中最后一个非空单元格,VBA,OFFICE,开发语言

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

第6讲:利用VBA获得指定行、列中最后一个非空单元格,VBA,OFFICE,开发语言文章来源地址https://www.toymoban.com/news/detail-688408.html


到了这里,关于第6讲:利用VBA获得指定行、列中最后一个非空单元格的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处: 如若内容造成侵权/违法违规/事实不符,请点击违法举报进行投诉反馈,一经查实,立即删除!

领支付宝红包 赞助服务器费用

相关文章

  • VBA技术资料MF42:VBA_从Excel中上面的单元格复制公式

    【分享成果,随喜正能量】唯有梦想才配让你不安,唯有行动才能解除你的不安.绳锯木断,水滴石穿。也许你现在做的事情很小,只要你能日积月累的坚持下去,才会发现意义非凡。所谓的成功,便是别人失败的时候你还在坚持。。 我给VBA的定义:VBA是个人小型自动化处理

    2024年02月13日
    浏览(42)
  • VBA(13)单元格的属性(三)附单元格颜色图/FIND函数

    一、单元格的常用属性 Sub x1()     Range(\\\"b10\\\") = Range(\\\"c2\\\").Value \\\'返回实际的值     Range(\\\"b11\\\") = Range(\\\"c2\\\").Text \\\'返回相示的值     Range(\\\"b12\\\") = \\\"\\\" Range(\\\"c2\\\").Formula \\\'返回一个C2的文本公式 End Sub Sub x2() \\\'单元格的地址     With Range(\\\"b2\\\").CurrentRegion         [b12] = .Address \\\'默认等对绝对引用地

    2024年02月05日
    浏览(34)
  • python——dataframe 获得指定行列

    目录 操作行列所需要的库 生成被取用的dataframe对象  dataframe取列 1、已知列名取用方法 2、已知列所在位置的取用方法  3、 以上两段代码生成结果相同  dataframe取行 1、已知行名取用方法 2、已知行所在位置的取用方法  3、 以上两段代码生成结果相同  dataframe按照列(列名,

    2024年02月04日
    浏览(37)
  • Excel·VBA单元格区域数据对比差异标记颜色

    之前的一篇博客《Excel·VBA单元格重复值标记颜色》,是对重复的整行标记颜色 而本文是按行对比2个单元格区域的数据,并对有差异的区域(一个单元格区域有的,而另一个单元格区域没有的)标记颜色,且只要存在任意1个字符不同的,则标记颜色 代码写为自定义函数使用

    2024年02月07日
    浏览(45)
  • VBA之正则表达式(43)-- 从网页中提取指定数据

    实例需求:由网页中提取下图中颜色标记部分内容,网页中其他部分与此三行格式相同。 【代码解析】 第6行代码创建正则对象。 第7行代码设置正则匹配模式。 正则表达式 说明 id=[^]+ 匹配以 id= 开头,后面跟一个或者多个除 之外的任意字符 [^]+#[^]+ 匹配以一个或者多个除

    2024年02月07日
    浏览(50)
  • Coalesce:处理Null值,返回传入的多个字段(属性)中第一个非空的值

    Coalesce函数是SQL中的一个函数,用于返回参数列表中第一个非空的表达式的值。Coalesce函数接受两个或多个参数,它会按顺序依次检查每个参数,返回第一个非空的参数值。如果所有参数都为空,则返回NULL。 Coalesce函数可以用于在SQL中处理空值的情况。在实际的数据处理中,

    2024年02月09日
    浏览(44)
  • Java替换字符串最后指定字符

    需求感想省略...... 代码如下: public static void main(String[] args) { 测试案例1:         String str = \\\"|1|2|3||||||||||||||\\\";  //偶位数 测试案例2:         String str = \\\"|1|2|3|||||||||||\\\";   //奇数位 --------------------------------------------------------------------------------------------------------------------

    2024年02月12日
    浏览(47)
  • VBA:Application.GetOpenFilename打开指定文件夹里的excel类型文件(xls、xlsx)

    \\\'GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名。 \\\'Application.GetOpenFilename(“文件类型筛选规则(就是说明)”,“优先显示第几个类型的文件”,“标题”,“是否允许选择多个文件名”) 打开类型只限excel文件 \\\'“文件类型

    2024年02月11日
    浏览(46)
  • 使用VBA将大纲级别定义良好的单个Word文档按指定的大纲样式分割成多个文档

    我们知道,大纲级别定义良好的 Word 文档可以轻松用 Edraw master 转换成思维导图。但是,对于一个极长的文档,例如一本教材,直接导入 Edraw master 转换后的思维导图,因为内容过多,仍然很难阅读。这时候,可以考虑分章节将长文档分割成一个一个小文档,再将小文档导入

    2024年02月12日
    浏览(50)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

博客赞助

微信扫一扫打赏

请作者喝杯咖啡吧~博客赞助

支付宝扫一扫领取红包,优惠每天领

二维码1

领取红包

二维码2

领红包