之前做过用用 VBA 来筛选数据，去重的相关工作，但是后面给忘记了，最近需要用到，又
重新写了一个。鉴于此，还是做一个归纳，以后再需要的时候也方便一些。
VBA 主要用在 Excel 中，别的就不说了，只说 Excel 中的情况
一个是筛重。筛重简单的说就是将表格中的很多重复的数据进行归纳，特别是我们在
选型的时候会经常用到。
在我们在设计的时候，会先把按钮啊、开关之类的先一个个的写出来，然后对应每个
按钮选定一个按钮的型号，对应每个电机选定电机的型号，这样的话，在修改和查看起来
就非常简单。但是在最后下采购单的时候就需要把型号一样的进行汇总，对同一个型号的
列一个项目，后面做一个数量上的累加就行了。比如说，启动按钮用的是 A 型号，停止按
钮用的也是 A 型号，下采购单的时候，就需要在前面列一个（名称：按钮，型号：A，数
量：２）就行了，不用单独拆出来。
简要说下具体使用：
第一步，先把需要统计的数据找出来。比如，下面一个例子：
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 5 To 500
If Sheets("采购清单_test").Cells(i, "I") <> "" Then
If Sheets("采购清单_test").Cells(i, "k") = "乙供" Then
Cells(i, "D") = Sheets("采购清单_test").Cells(i, "I")
Cells(i, "C") = Sheets("采购清单_test").Cells(i, "G")
End If
End If
Next
End Sub
在上面的例子中，就是把《采购清单_test》这个表格中 K 里面写的是“乙供”的找出来。
当然，我这个表格中的 K 列写的是这个零件是甲方供货还是乙方供货。在这个项目里面我
们是乙方，我们就需要下标注为乙方的采购单。在新的表格里面，D 列是将旧表格的第 I
列的数据复制过来，C 列是把旧表格的 G 列的数据复制过来。在我的旧表格里面 I 列是型
号，G 列是数量。
经过这个程序，我们就把需要采购的东西都筛选到我的新表格中了，当然我这个是从
第五行开始筛选，一直筛到第五百行，而实际上我的数据不到三百行。
因为从旧表格复制过来的数据没有进行任何处理。所以，在旧表格中是属于甲方供货
的那些行就是空白行，这样就需要把空白行给剔除掉，让新的表格中的数据从上到下排列
具体的方法如下。
第二步，将复制过来的数据，从上往下一个挨着一个排列在一起。
Private Sub CommandButton3_Click()
Dim i, j, k, l, m, n As Integer
k = 5
n = 5
For i = 5 To 500
If Cells(i, "D") <> "" Then
Cells(k, "F") = Cells(i, "D")
Cells(k, "E") = Cells(i, "C")
评论0