如何学习VBA？一直是大家关心的话题，这里我梳理了自己多年从事VBA应用的经验，分享给大家。也突出了我编程思想：积木编程。
我给VBA的应用定义：VBA是实现个人小型数据自动化的有效工具（手段），这里的介绍都是我的经验之谈，VBA的重点就是应用，用于实现自己的数据自动化处理。今日的内容是第40讲：VBA语言学习的历程。
3.3.6 VBA语言学习的历程
---------为什么要学习VBA？
VBA是一种编程语言，它依托于Office软件，可以实现各种Office软件操作的自动化。也就是说，只要我们用Office软件，如EXCEL、WORD也就是有了应用VBA的理由。为什么用VBA呢？其实最初的很多朋友都有一个共同的理由“因为我懒啊”，说句实在话，这确实是最初学习VBA的理由。但当你学了一段时间后，特别是可以熟练地应用数据库，与人机的交互操作后，你的境界会提高了很多。这时的VBA不再是你偷懒的理由了。
3.3.6.1 初用VBA，真的是因为我懒
最初用VBA的人员很多是因为数据的处理十分繁琐，复制、粘贴、LOOKUP,等等，很繁琐、很烦。VBA可以实现Excel中没有提供的功能，提高运行速度，而且通过编写自定义函数可以实现自己的定制，可以实现办公的自动化功能。
世界上不存在完美的事物，同样也不存在完美的软件。虽然微软通过升级在不断地完善Office系列软件的功能，使其标准功能可以满足日常绝大部分的应用。但在这个娑婆世界里，我们的欲望是无止境的。于是微软便聪明地整合了VBA到它的产品中，给用户留下了可以自行去定义属于自己需求的软件的可能性（WPS还需要继续努力啊）。
下面就是一个实例：某药店的大库现场盘点，人员很多，每个人原则上负责一个区域，盘点后每人都把自己盘点的数据交到了你的手上，但给你的信息是：肯定全部都点到了，但数据有重复的，怎么办？这就要求你在大量的数据中把那些重复的数据删除，怎么办呢？
我们假设数据如下：
如果能在这么多的数据中找到重复的数据，那绝对是眼力的体操，我们怎么解决？
打开《VBA代码解决方案》第一册：
拷贝出内部的代码到WORD文档：
Sub MyDeleteRow()
Dim R As Integer
Dim i As Integer
With Sheets("sheet9")
R = .[A65536].End(xlUp).Row
For i = R To 1 Step -1
If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then
.Rows(i).Delete
End If
Next
End With
End Sub
下面我们要对上面的代码进行分析修正了：
上面的代码中
① With Sheets("sheet9") 更正为With Sheets("sheet1") ，因为我的数据是在"sheet1"的工作表中
② If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then
.Rows(i).Delete
End If
判断的是只有第一列重复，就删除，我们根据实际情况，在盘点时，药品+批次应该是唯一的，所以我们的对策是在工作表的E列做个公式：B列&C列，同时上面的代码成为;
If WorksheetFunction.CountIf(.Columns(5), .Cells(i, 5)) > 1 Then
.Rows(i).Delete
End If
最后看我们的实际工作表：
代码：
Sub MyDeleteRow()
Dim R As Integer
Dim i As Integer
With Sheets("sheet1")
R = .[A65536].End(xlUp).Row
For i = R To 1 Step -1
If WorksheetFunction.CountIf(.Columns(5), .Cells(i, 5)) > 1 Then
.Rows(i).Delete
End If
Next
End With
End Sub
截图：
运行时点击上面的红色圆圈框住的运行钮。
运行后的结果：
上面是不是很简单呢？或许你说还有其他的办法，但对于大量的数据来讲，VBA作为一个非常实用的方案，也是确实值得采用的。
3.3.6.2 学习VBA到了一定的水平之后，实现自动化办公，会成为你的学习的动力。
Office本身一些功能的细节和控制确实不能完全满足我们的要求，如数据透视表（Pivot Table），那个数据汇总，怎么看怎么别扭，别急，这个时候你要考虑VBA了。电脑不是人脑，至少目前还取代不了，但我们可以通过控制实现我们的需求：比如说文件名和文件结构的操作；文件的删除；自动检查数据的有效性；数据的查找；查到数据后的处理；鼠标右键的控制；文件的导入导出；数据录入的即时校验；建立独立的窗体录入；数据库文件的操作；文件中图形的处理等等。
当你再深入的学习时，追求的是自动化和视觉并用了，比如我要做一个欢迎的界面，欢迎朋友们学习VBA：
我们打开《VBA代码解决方案》第二册：
拷贝出代码到WORD:
我们为了实现上述代码在ACTIVE SHEET中自动运行，我们把上述代码放在Worksheet的Activate方法里并且把上面的程序略作修改：
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Worksheet_Activate()
Dim sTest As String
Dim i As Integer
sTest = "欢迎你学习VBA,利用VBA，
For i = 1 To Len(sTest)
Range("A1").Value = Left(sTest, i)
Sleep 200
Next
End Sub
截图如下：
好了，我们把工作薄的焦点放到sheet1工作薄，然后再返回到sheet3工作薄，看看运行的效果：
这样的视觉效果是不是很值得深入地去学习呢？
当你开始学习VBA，在你的工作中，不久的将来，VBA语言一定会成为你工作中不可或缺的一部分。
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
第7套教程（三册）：VBA之EXCEL应用
第1套教程（三册）：VBA代码解决方案
【第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）】
第3套教程（两册）：VBA数组与字典解决方案
第2套教程（两册）：VBA数据库解决方案
第6套教程（两册）：VBA信息获取与处理
第5套教程（两册）：VBA中类的解读和利用
第8套教程（三册）：VBA之Word应用（最新教程）
上述教程的学习顺序：
① 7→1→3→2→6→5或者7→4→3→2→6→5。
② 7→8
- 如何学习VBA呢? 概括的说就是: 学习过程中要信、解、受、持，更要有回向的业力。无论您在学习的任何阶段，都要对照教程的知识点加持自己的实际工作，总会有丰厚的收获。
- 教程学习顺序是7,1(或4),3,2,6,5。如果想学习WORD VBA选择8.第7套《VBA之Excel应用》是对VBA基本的讲解；第1（或4）套《VBA代码解决方案》是《VBA之Excel应用》的提高；第3套《VBA数组与字典解决方案》是VBA应用的专题讲解，教程中讲解的专题是数组和字典，大家会在这套教程中看到非常全面的数组与字典的应用；第2套《VBA数据库解决方案》也是VBA应用的专题讲解，教程讲解的专题是数据库，大家会在这套教程中看到VBA连接Excel与accdb的全面应用；第6套《VBA信息获取与处理》是整个VBA应用的提高；第5套《VBA中类的解读及应用》是VBA的最高理论“类”“接口技术”的讲解。第8套教程《VBA之Word应用》是对WORD vba应用的专业讲解，是紧扣面向对象编程的讲解，建议在第7套教程之后学习。
