如图:如何用VBA实现满足条件的行剪贴到另一个表中?

文章描述:-2022年6月6日发(作者:左锡嘉)使用VBA对工作表进行操作时,经常需要定位到指定行或列中最后一个非空单元格,此时可以使用Range对象的End属性,在取得单元格对象后便能获得该单元格的相关属性,如单元格地址、行列号、数值等,如下面的代码所示。tRow()AsRange=("A").End(xlUp)"A列中最后一个非空单元格是"&s(0,0)_5.&",行号"&&",数值"&=o


使用VBA对工作表进行操作时,经常需要定位到指定行或列中最后一个非

空单元格,此时可以使用Range对象的End属性,在取得单元格对象后便能获

得该单元格的相关属性,如单元格地址、行列号、数值等,如下面的代码所

LastRow过程使用消息框显示工作表中A列最后非空单元格的地址、行号和

End属性返回一个Range对象,该对象代表包含源区域的区域尾端的单元

键>,语法如下:

参数expression是必需的,一个有效的对象。

参数Direction是可选的,所要移动的方向,可以为表格31所示的

Range对象的End属性返回的是一个Range对象,因此可以直接使用该对

运行LastRow过程结果如图1所示。图1获得A列最后一个非空单元格

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

LastColumn过程使用消息框显示工作表中第一行最后一个非空单元格的地

址、列号和数值,如图32所示。图2获得第一行最后一个非空单元格

}

听过VBA代码吗?羡慕能用代码高效办公的人吧!VBA代码远没有大家想象的那么难,跟着小编学一起学吧!

Excel中的选择问题

周末去郊游还是看电影?得由天气情况决定,天气不同,选择的约会项目也不同。

类似的选择问题都可以用“如 果……那 么……否 则……”这组关联词来描述,都是从已有的两种方案中选择一个,属于“二选一”的选择题,如图 4 - 2 所示。

类似的问题,在Excel中也不少:

“如果B 2 中的数值达到 60,那么在C 2 写入‘及格’,否则在C 2 写入‘不及格’。”

“如果单元格中保存了数据,那么为该单元格添加边框线,否则不设置边框线。”

“如果工作簿中没有名称为‘汇总’的工作表,那么新建一张名称为‘汇总’的工作表,否则不执行任何操作。”

像这种根据条件,从多种操作或计算中选择一个的问题称为选择问题。

解决简单的“二选一”问题

用 VBA 中的 IIF 函数解决简单的“二选一”问题。

“如果B 2 中的数值达到 60,那么在C 2 中输入‘及格’,否则在C 2 中输入‘不及格’。”这是一个为B 2 中保存的成绩评定等次的问题,如图 4-3 所示。

图 4-3 判断成绩是否及格

这个问题可以用VBA中的IIF函数解决,IIF函数的功能和用法与工作表中的IF函数类似,语句结构为:

IIF函数有 3 个参数,当第 1 参数的比较运算式返回TRUE时,执行第 2 参数的操作或计算,否则,执行第 3 参数的操作或计算。如果要用IIF函数解决本例中的问题,可以将过程写为:

Sub 用 IIF 函数判断成绩是否及格

如当比较运算式返回的结果为TRUE时,需要执行几步、几十步甚至更多操作时,就不适合使用该函数来解决,对这种较为复杂的选择和判断问题,通常会使用专用的语句结构来解决。

学会了吗?快速提高你的效率吧!从此变“excel一秒超人”!

*注:本文部分图片来源于互联网,仅供学习、交流使用。不具有任何商业用途,若有侵权,请联系删除。

《别怕,Excel VBA其实很简单》

对于大部分没有编程基础的职场人士来说,在学习VBA时往往会有很大的畏难情绪。本书正是针对这样的人群,用浅显易懂的语言和生动形象的比喻,并配以大量插画,讲解Excel VBA中看似复杂的概念和代码。从简单的宏录制与运行、VBA编程环境和基础语法的介绍,到常用Excel对象的操作与控制、事件的灵活使用、设计自定义的操作界面、调试与优化编写的代码,都进行了形象的介绍。

《别怕,Excel VBA其实很简单(第3版)》适合那些希望提高工作效率的职场人士,特别是经常需要处理和分析大量数据的用户,也适合高校师生阅读和学习。

}

我要回帖

更多关于 vba剪切粘贴代码 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信