立即注册 找回密码

QQ登录

只需一步,快速开始

查看: 2199|回复: 0

[Excel VBA 2013视频教程] 20-处理单元格数据(复制、粘贴、删除的用法)

[复制链接]

46

主题

0

回帖

982

积分

大学三年级

Rank: 4

积分
982
发表于 2017-9-20 03:45:39 | 显示全部楼层 |阅读模式
道勤网-数据www.daoqin.net
本帖最后由 excel交流 于 2017-9-20 03:50 编辑

VBA程序设计的最终目的是什么?更多的当然是为了处理数据。所以,这一贴,将来讲一讲用VBA处理单元格区域。当然,因为我知道的本身不多,所以,并不能把所有的东西都告诉你,我只是举一些简单的例子,供大家学习作参考用。
  建议大家在读贴的过程中,动动手,亲自试一试,相信这样的亲身经历会给你的学习带来一定的帮助。
  一、复制单元格区域
  如果你感到无从着手,别忘了“录制宏”的功能。虽然录制宏生成的代码不是最有效的,但它生成的代码可以为我们提供很多的信息。
  好了,闲话不说。自行录一段复制A1单元格到B1单元格的宏。打开VBE编辑器,得到如下代码:

  1.   Sub Macro1()
  2.   '
  3.   ' Macro1 Macro
  4.   ' 宏由 ggsmart 录制,时间: 2009-8-23
  5.   '

  6.   '
  7.       Range("A1").Select
  8.       Selection.Copy
  9.       Range("B1").Select
  10.       ActiveSheet.Paste
  11.   End Sub
  12.   
复制代码

除去注释的部分,实际上只有句代码。不用我细讲,大家已经知道它们的作用分别是:第一句选中A1单元格,第二句复制选中的单元格,第三句选中B1单元格,第四句粘贴。
  但是,就像我们用VBA在单元格输入数据不用先选中它一样,我们同样可以在不选中单元格的情况下就执行复制粘贴命令。所以,以上的代码实际上我们可以简化为:

  1.   Sub Macro1()
  2.       Range("A1").Copy Range("B1")
  3.   End Sub
  4.   
复制代码


  1.   Sub mycopy()
  2.      Workbooks("book1").Sheets(1).[a1:a10].Copy _
  3.      Workbooks("book2").Sheets(1).[b1:b10]
  4.   End Sub
  5.   
复制代码
提示:一行的代码过长,可以用空格加下划线进行换行。

复制的区域过大时,对于目标区域,我们可以只指定一个单元格,这时它代表目标区域的左上角单元格。如上面的代码,我们可以写成这样:
  

  1.   Sub mycopy()
  2.      Workbooks("book1").Sheets(1).[a1:a10].Copy _
  3.      Workbooks("book2").Sheets(1).[b1]
  4.   End Sub
复制代码

  1.   Sub mycut()
  2.     [a1:a10].Cut [b1]
  3.   End Sub
  4.   
复制代码
三、删除单元格
  删除一个单元格的命令也很简单,调用Range对象的Delete方法即可。同我们用鼠标操作一样,同样有四个选项,下面以删除A1单元格为例:

  1.   [a1].Delete Shift:=xlUp '   下方单元格上移
  2.   [a1].Delete Shift:=xlToLeft '    右侧单元格左移
  3.   [a1].EntireRow.Delete '   整行删除
  4.   [a1].EntireColumn.Delete '   整列删除
  5.   
复制代码
只写成[a1].Delete时,默认为“下方单元格上移”。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

道勤网- 推荐内容!上一条 /2 下一条

!jz_fbzt! !jz_sgzt! !jz_xgzt! 快速回复 !jz_fhlb! !jz_lxwm! !jz_gfqqq!

关于我们|手机版|小黑屋|地图|【道勤网】-www.daoqin.net 软件视频自学教程|免费教程|自学电脑|3D教程|平面教程|影视动画教程|办公教程|机械设计教程|网站设计教程【道勤网】 ( 皖ICP备15000319号-1 )

GMT+8, 2024-3-19 17:54

Powered by DaoQin! X3.4 © 2016-2063 Dao Qin & 道勤科技

快速回复 返回顶部 返回列表