VBA让Excel数据去重，数量相加

最新推荐文章于 2024-07-03 11:22:14 发布

saga20081208

最新推荐文章于 2024-07-03 11:22:14 发布

阅读量1.7k

点赞数

分类专栏：工作文章标签：编程语言 vba excel

本文链接：https://blog.csdn.net/saga20081208/article/details/108600543

版权

本文介绍了如何使用VBA编程语言在Excel中进行数据处理，包括找出重复数据，确保数据行之间无空行，以及实现数据去重的同时对相同数据进行数量相加的操作。

摘要由CSDN通过智能技术生成

简要说明

之前做过用用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