VBA宏编程操作指南.docVIP

修订记录 版本 日期 作者 说明 V1.0 2011-3-17 jingpengtao VBA基础教程，不用自己写代码，不用看懂代码也可以写出适合自己工作的宏。 目录 1.1 第一部分：关键代码解释 4 1.2 第二部分：如何录制宏 10 1.3 第三部分：实例解释如果编写宏 11 1.4 第四部分：如何确定在哪个位置插入关键代码呢？ 21 1.5 第五部分：如何调试宏 21 1.6 第六部分：分块合成VBA代码 23 1.7 第七部分：个人心得 26 序： EXCEL在我们平时的生活工作中有着广泛和重要的应用，尤其是对于每天和大量数据打交道的人员更重要，但同时对大量数据的操作又显得是那么的繁琐，一不小心就很容易出错，对于每天都需要用EXCEL做同样事情的人来说，要是能够有一种工具来自动做工作就好了。 EXCEL宏就是一个解决此类问题的办法，编写好一个实用的EXCEL宏可以大幅度提高工作效率和质量，因此掌握宏编程显得尤为重要。 但是并不是每个人都学过编程，都了解VBA语言，那么怎样才能快速学习和掌握应用宏呢？ 下面我就根据我个人的学习经验及理解来教大家如何学习VBA编程。 不需要理解代码的含义，不需要知道哪一步操作是什么代码，只要你会复制粘贴，就能够写出EXCEL宏，提高你的工作效率。 俗话说：“授之以鱼，不如授之以渔”，所以替人写宏不如教给他方法，也方便各自修改。 学完本教程，写一些简单的宏肯定可以。编写本教程的目的就是为了方便经常和数据打交道的同事朋友，能够各自根据需要编写自己的宏。 备注：由于本教程V1、0版本只是针对从未接触过VBA语言及刚入门的人员编写的，并未涉及更详细的代码分析及条件语句，循环语句，数据语句等，将会在后期的版本更新中不断完善。 由于编者水平经验有限，难免会有一些不足之处，还望多多包涵。 第一部分：关键代码解释 Dim str As String str = ThisWorkbook.Path \***.xls Workbooks.Open str 代码解释：自动打开文件名为“***”，属性为xls的文件。同时xlsx，csv文件也可打开。 实际应用：如果你的宏执行需要很多文件，那么就可以再一开始就先执行打开每个文件，如： Dim str As String str = ThisWorkbook.Path \日常数据模板.xls Workbooks.Open str str = ThisWorkbook.Path \临时表.xls Workbooks.Open str str = ThisWorkbook.Path \扰码分布表.xls Workbooks.Open str 2、 Windows(***.xls).Activate Workbooks(***.xls).Close SaveChanges:=False 代码解释：关闭文件名为“***”，属性为xls的文件等。 其中SaveChanges:=False意为不保存直接关闭该文件，如果SaveChanges:=True，则表示保存之后再关闭该文件。 实际应用：在执行完所有的代码之后关闭各个已打开的文件，对于需要保存数据的SaveChanges:=True即可，对于不需要保存数据的SaveChanges:=False。 如： Windows(日常数据模板.xls).Activate Workbooks(日常数据模板.xls).Close SaveChanges:=False Windows(扰码分布表.xls).Activate Workbooks(扰码分布表.xls).Close SaveChanges:=True Windows(临时表.xls).Activate Workbooks(临时表.xls).Close SaveChanges:=False 3、 i = 1 While (Cells(i, 1) ) i = i + 1 Wend Cells(i, 1).Select ActiveSheet.Paste 代码解释：此段语句主要是对单元格进行判断，是否为空白，如果为空白，则执行粘贴。具体解释请看下图： 假如你要把N个不同EXCEL的内容粘贴到一个新的EXCEL里，也就是汇总所有的数据。假如第一个EXCEL内容有13行，第二个EXCEL内容有18行，第三个EXCEL内容有20行，等等。 也许你会说直接定位到单元格不行吗？ 当然，对于