如何学习VBA_3.3.6.1 初用VBA，真的是因为我懒

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。

如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。

VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是如何学习VBA_3.3.6.1 初用VBA，真的是因为我懒

【分享成果，随喜正能量】201 你真正要做的事情，连神明都不要讲。安静地做，成功了再说。事以密成，言以泄败，隐忍且蓄势待发。潜龙勿用，才能见龙在天而当。。

3.3.6.1 初用VBA，真的是因为我懒

最初用VBA的人员很多是因为数据的处理十分繁琐，复制、粘贴、LOOKUP,等等，很繁琐、很烦。VBA可以实现Excel中没有提供的功能，提高运行速度，而且通过编写自定义函数可以实现自己的定制，可以实现办公的自动化功能。

世界上不存在完美的事物，同样也不存在完美的软件。虽然微软通过升级在不断地完善Office系列软件的功能，使其标准功能可以满足日常绝大部分的应用。但在这个娑婆世界里，我们的欲望是无止境的。于是微软便聪明地整合了VBA到它的产品中，给用户留下了可以自行去定义属于自己需求的软件的可能性（WPS还需要继续努力啊）。

下面就是一个实例：某药店的大库现场盘点，人员很多，每个人原则上负责一个区域，盘点后每人都把自己盘点的数据交到了你的手上，但给你的信息是：肯定全部都点到了，但数据有重复的，怎么办？这就要求你在大量的数据中把那些重复的数据删除，怎么办呢？

我们假设数据如下：

如果能在这么多的数据中找到重复的数据，那绝对是眼力的体操，我们怎么解决？

打开《VBA代码解决方案》第一册：

拷贝出内部的代码：

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作为一个非常实用的方案，也是确实值得采用的。

• 实例.XLSM

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：