我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。
如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。
VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是如何学习VBA_3.3.6.1 初用VBA，真的是因为我懒
【分享成果，随喜正能量】201 你真正要做的事情，连神明都不要讲。安静地做，成功了再说。事以密成，言以泄败，隐忍且蓄势待发。潜龙勿用，才能见龙在天而当。。
展开剩余84%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实践经验，全部浓缩在下面的各个教程中：
发布于：河北省股票配资门户,在线炒股配资看必选,股票配资导航网站提示：文章来自网络，不代表本站观点。
