菜鸟谈VBA最最基础入门《原创》

ggsmart · 发表于 2009-8-23 13:47

处理单元格数据

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

　　Sub Macro1()
　　'
　　' Macro1 Macro
　　' 宏由 ggsmart 录制，时间: 2009-8-23
　　'
　　'
　　 Range("A1").Select
　　 Selection.Copy
　　 Range("B1").Select
　　 ActiveSheet.Paste
　　End Sub

复制代码

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

　　Sub Macro1()
　　 Range("A1").Copy Range("B1")
　　End Sub

复制代码

　　以上的代码只是发生在活动工作表内，如果要在其他工作薄或工作薄中实现复制粘贴的命令，只需要改变引用即可。如我们要将Book1.xls的第一个工作表中的A1:A10复制到Book2.xls的第一个工作表中的B1:B10单元格，则代码为：
　　

　　Sub mycopy()
　　 Workbooks("book1").Sheets(1).[a1:a10].Copy _
　　 Workbooks("book2").Sheets(1).[b1:b10]
　　End Sub

复制代码

　　提示：一行的代码过长，可以用空格加下划线进行换行。
　　

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

　　Sub mycopy()
　　 Workbooks("book1").Sheets(1).[a1:a10].Copy _
　　 Workbooks("book2").Sheets(1).[b1]
　　End Sub

复制代码

如果你需要只粘贴数值，或其他什么，你可以利用录制选择性粘贴的宏来进行修改。同样的道理，我就不再多说。
　　二、剪切单元格
　　剪切单元格，或者说移动单元格和复制单元格类似，有了上面的经验，我们不难得到它的语句。其实它和复制单元格的命令大同小异，唯一不同的是使用Cut方法代替了Copy方法。
　　下面的代码是将A1:A10单元格的数移动到B1:B10单元格：
　　

　　Sub mycut()
　　 [a1:a10].Cut [b1]
　　End Sub

复制代码

　　三、删除单元格
　　删除一个单元格的命令也很简单，调用Range对象的Delete方法即可。同我们用鼠标操作一样，同样有四个选项，下面以删除A1单元格为例：
　　

　　[a1].Delete Shift:=xlUp ' 下方单元格上移
　　[a1].Delete Shift:=xlToLeft ' 右侧单元格左移
　　[a1].EntireRow.Delete ' 整行删除
　　[a1].EntireColumn.Delete ' 整列删除

复制代码

　　只写成[a1].Delete时，默认为“下方单元格上移”。
　　

[ 本帖最后由 ggsmart 于 2009-8-23 13:48 编辑 ]

书丁茶 · 发表于 2009-8-23 16:52

很不错，学习了下，对vba有了初步的认识！

非常感谢！

东方之珠0 · 发表于 2009-8-23 16:54

楼主可能忘记了吧,你不是说在下一贴时公布密码吗?你忘性真好,好多人可就不干了...
哪家伙,怎么说是非常期待,哪可是相当期待,都在这儿憋着呢?.....

饭团控 · 发表于 2009-8-23 21:51

留名等我先步入中级玩家再研究现在在研究函数公式和数据透视表

自由の鳥 · 发表于 2009-8-23 22:07

风趣的描述增强了文章的可读性，支持楼主，幸苦啦！

zztzzt2003 · 发表于 2009-8-24 01:20

xiang dang hao

tlh0902 · 发表于 2009-8-24 16:54

真是太感谢楼主了，经过这段时间的学习，现在基本对VB开始感兴趣了。这是阅读感觉越有兴趣，希望楼主能更新更多好东西。期待中……

ggsmart · 发表于 2009-8-24 17:06

Range对象的End属性

　　Range对象有一个End属性，也许你在阅读别人的例子里经常会看到如“[A65536].End(xlUp).Row”这样的语句，这就是End属性的利用。
　　End属性应用于Range对象，同样也返回一个Range对象。该对象代表包含源区域的区域结尾处的单元格。如果你还是不明白，那请你在工作表里试一试，分别按Ctrl+上、下、左、右方向键，看看得到的是什么？End属性返回的单元格就相当于在源单元格按住Ctrl键+上（或下、左、右）方向键所得到的单元格。它的语句格式简单写为：
　　源区域.End（移动方向）
　　移动方向可以是：
　　xlToLeft ：向左移动，相当于在源区域按Ctrl+左方向键。
　　xlToRight：向右移动，相当于在源区域按Ctrl+右方向键。
　　xlUp：向上移动，相当于在源区域按Ctrl+上方向键。
　　xlDown：向下移动，相当于在源区域按Ctrl+下方向键。
　　所以在程序设计的过程中，很多人喜欢用“[A65536].End(xlUp).Row”语句来返回A列的最后一个非空单元格的行号。
　　如果当前活动工作表的A列填写的是学生的姓名，现在我们想在表中A列最后一个学生的后面增加一个叫“张青”的学生，则代码为：
　　

　　ActiveSheet.Cells([A65536].End(xlUp).Row + 1, 1).Value = "张青"

复制代码

　　语句 [A65536].End(xlUp).Row + 1中，行号加1的目的是在最后一个非空单元格的下一个单元格里输入数据。需要注意的是：如果你的A列全为空的话，“[A65536].End(xlUp).Row”这个语句返回的是1。
　　
　　我们来做一个简易的学生信息录入的例子：
　　（1）点工作表中的“录入资料”按钮，弹出“录入”窗体；
　　（2）录入信息后，点击“确定”按钮即完成记录追加；
　　（3）不考虑录入内容是否规范。
　　详细请看附件，信息录入.rar (11.09 KB, 下载次数: 14423)

2009-8-25 12:30 上传
点击文件名下载附件

附件没有设密码，希望大家尝试过后再看代码！
　　

当然，并不是说End属性都可以得到最后的单元格。有些时候是返回不了的，很久以前，我就曾经遇到过存在假空单元格的情况，差点没把我弄疯。关于End属性，看看此贴，也许对你会有帮助：http://club.excelhome.net/viewthread.php?tid=189115&page=1#pid1251339
　　

[ 本帖最后由 ggsmart 于 2009-8-25 12:30 编辑 ]