VBA宏编程操作指南

ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Columns("N:N").Select
当执行到Ai为空白时（如上图则表示执行到A14），执行Cells(i, 1).Select
ActiveSheet.Paste，也就是选中A14单元格，进行粘贴。这样通过判断空白的方法就不会因为行数的变动而产生影响了。
注意：上面我们说的只是根据Cells(i, 1)判断，同样，也可以根据Cells(i,2)第二列判断，Cells(i,3)第三列判断等，这样就可以避免因为前面几列的空白列而导致后面列的判断出现问题。
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
如：
Windows("日常数据模板.xls").Activate
Workbooks("日常数据模板.xls").Close SaveChanges:=False
Windows("扰码分布表.xls").Activate
Workbooks("扰码分布表.xls").Close SaveChanges:=True
EXCEL宏就是一个解决此类问题的办法，编写好一个实用的EXCEL宏可以大幅度提高工作效率和质量，因此掌握宏编程显得尤为重要。
但是并不是每个人都学过编程，都了解VBA语言，那么怎样才能快速学习和掌握应用宏呢？
下面我就根据我个人的学习经验及理解来教大家如何学习VBA编程。
不需要理解代码的含义，不需要知道哪一步操作是什么代码，只要你会复制粘贴，就能够写出EXCEL宏，提高你的工作效率。
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
第二部分：
1、如何录制宏。
首先打开EXCEL2007，点到“开发工具”那一栏，（注意：有的人打开之后发现没有开发工具那一栏，原因可能是因为从没用过宏，没有开启其功能，需要在“信任中心”下的宏设置里面设置为“启用所有宏”即可）
2、开始录制宏
点击录制宏，如下图所示，出现一个对话框，输入宏的名字，点击确定即可。
此代码的和3部分的代码有相似之处，不同的地方时当判断Cells(i, 1)为空时，下一步的执行不一样。
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
此语句执行之后如下：
也就是当Cells(i, 1)为空时（本图表示A13为空时），从A13开始清除A13往右以及往下所有的数据。
实际应用：如果你的宏执行需要很多文件，那么就可以再一开始就先执行打开每个文件，如：
Dim str As String
str = ThisWorkbook.Path & "\日常数据模板.xls"
Workbooks.Open str
str = ThisWorkbook.Path & "\临时表.xls"
代码解释：此段语句主要是对单元格进行判断，是否为空白，如果为空白，则执行粘贴。具体解释请看下图：
假如你要把N个不同EXCEL的内容粘贴到一个新的EXCEL里，也就是汇总所有的数据。假如第一个EXCEL内容有13行，第二个EXCEL内容有18行，第三个EXCEL内容有20行，等等。
也许你会说直接定位到单元格不行吗？
ActiveWindow.ScrollRow = 3624
ActiveWindow.ScrollRow = 3749
ActiveWindow.ScrollRow = 3999
类似于ActiveWindow.ScrollColumn，ActiveWindow.ScrollRow，等等都是一些无用的代码，产生这些代码的原因就是因为我们拖拽鼠标，滑动鼠标的滑轮造成的，这些代码就是需要我们删除的，删除之后并不影响代码的运行，也同时使我们的代码变的精简美观。
其中SaveChanges:=False意为不保存直接关闭该文件，如果SaveChanges:=True，则表示保存之后再关闭该文件。
实际应用：在执行完所有的代码之后关闭各个已打开的文件，对于需要保存数据的SaveChanges:=True即可，对于不需要保存数据的SaveChanges:=False。
一般情况下，如果你执行宏，执行最后会出现如下截图，如果在代码的最前那么就不会显示这些提示信息了。
例如上图表示你再录制的过程中需要进行分列，我们知道在执行分列之后，会弹出上面的对话框要求选择，如果在代码的开始不增加Application.DisplayAlerts = False，则在执行的过程中会弹出对话框让我们选择，点击确定之后才会继续执行。
ActiveWindow.ScrollRow = 2875
ActiveWindow.ScrollRow = 3000
ActiveWindow.ScrollRow = 3125
ActiveWindow.ScrollRow = 3249
ActiveWindow.ScrollRow = 3374
ActiveWindow.ScrollRow = 3499
修订记录
版本
日期
作者
说明
V1.0
2011-3-17
jingpengtao
VBA基础教程，不用自己写代码，不用看懂代码也可以写出适合自己工作的宏。
序：
EXCEL在我们平时的生活工作中有着广泛和重要的应用，尤其是对于每天和大量数据打交道的人员更重要，但同时对大量数据的操作又显得是那么的繁琐，一不小心就很容易出错，对于每天都需要用EXCEL做同样事情的人来说，要是能够有一种工具来自动做工作就好了。
6、MsgBox "清除成功！"
Exit Sub
Err1:
MsgBox "清除失败！"
主要是MsgBox代码的应用，大家可以参考网上的一些资料，一般改代码都放在最后，会出现如下的运行界面，主要用于提示信息。
7、ActiveSheet.Range("$A$1:$AN$295").AutoFilter Field:=12, Criteria1:="10104"
此语句主要用途：修正自动填充导致的数据超出计划。
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A10")
假如你有A1-A12小区CI需要关联小区扰码，当你在B2单元格通过VLOOKUP关联数据时，你肯定需要让B2自动填充到B12。但是如果你每天都需要关联数据，而每次数据都会变化，即今天要关联A1-A12，明天是A1-A20，这样就需要自动填充到A20，但是EXCEL不是智能的，你第一次设定的自动填充到A12，当然不会变了，这样就有可能导致数据不全。
之后“录制宏”会变成“停止录用”，表示已经在录制过程中，在这个过程中你所进行有关EXCEL的操作都会被以代码的形式记录下来。
第三部分：
在你创建一个宏命令之前，花几分钟来考虑你究竟想做什么。因为宏命令是一大堆键盘输入的集合，事先计划你的行动非常重要。最早的计划宏命令的方法是手动地将宏命令需要做的事情做一遍。在你做键盘输入的同时，在一张纸上记录下他们实际发生的情况，不要漏掉任何东西。象录音机一样，Excel可以将你的所有动作录制下来（事实上并非如此，有些操作是无法录制的）。如果在录制宏之前，你没有很好地计划，你会录制很多不必要的步骤，而这些都会影响运行速度。尽管修改宏代码比去除录制宏里面不必要的步骤容易，但是，仅仅录制必要的步骤会节省你修改代码的时间和以后的麻烦。
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
执行之后，B21往下的#N/A都会清空的。
5、Application.DisplayAlerts = False
代码解释：在宏的执行过程中出现的告警框不显示。
Workbooks.Open str
str = ThisWorkbook.Path & "\扰码分布表.xls"
Workbooks.Open str
2、Windows("***.xls").Activate
Workbooks("***.xls").Close SaveChanges:=False
代码解释：关闭文件名为“***”，属性为xls的文件等。
当然，对于每天固定行数的EXCEL，是可以的，但是如果每天的数据都在变，今天第一个EXCEL有17行，第二天又变为10行，第二个EXCEL今天有20行，第二天变为25行，这样你就没法使用固定的单元格定位粘贴数据了。