利用VBA筛选重复数据

2024年6月10日 118次阅读 来源: l_iu_xing

目标：在重复数据中按照一定规则提取、组合。

Sub match()
    Dim i, j, z, n, flag, A, B, C
    
    Set A = Worksheets("Sheet1").UsedRange
    Set B = Worksheets("Sheet2").UsedRange
    Set C = Worksheets("Sheet3").UsedRange
    
    For i = 3 To A.Rows.Count
        For j = 2 To B.Rows.Count
            If A.Cells(i, 1) = B.Cells(j, 2) Then
                 '险种名称
                 Debug.Print B.Cells(j, 2)
                 Select Case B.Cells(j, 3)
                    Case Is = A.Cells(1, 3)
                        '城镇职工基本医疗保险
                        '缴费基数  赋值列不同
                        A.Cells(i, 2) = Val(B.Cells(j, 6))
                        '缴纳金   赋值列不同
                        A.Cells(i, 3) = Val(B.Cells(j, 8))
                        A.Cells(i, 4) = Val(B.Cells(j, 9))
                    Case Is = A.Cells(1, 6)
                        '城镇企业职工基本养老保险
                        '缴费基数
                        A.Cells(i, 5) = Val(B.Cells(j, 6))
                        '缴纳金
                        A.Cells(i, 6) = Val(B.Cells(j, 8))
                        A.Cells(i, 7) = Val(B.Cells(j, 9))
                    Case Is = A.Cells(1, 8)
                        '公务员医疗补助
                        '缴费基数
                        A.Cells(i, 5) = Val(B.Cells(j, 6))
                        '缴纳金
                        A.Cells(i, 8) = Val(B.Cells(j, 8))
                        A.Cells(i, 9) = Val(B.Cells(j, 9))
                    Case Is = A.Cells(1, 10)
                        '生育保险
                        '缴费基数
                        A.Cells(i, 5) = Val(B.Cells(j, 6))
                        '缴纳金
                        A.Cells(i, 10) = Val(B.Cells(j, 8))
                        A.Cells(i, 11) = Val(B.Cells(j, 9))
                    Case Is = A.Cells(1, 12)
                        '工伤保险
                        '缴费基数
                        A.Cells(i, 5) = Val(B.Cells(j, 6))
                        '缴纳金
                        A.Cells(i, 12) = Val(B.Cells(j, 8))
                        A.Cells(i, 13) = Val(B.Cells(j, 9))
                    Case Is = A.Cells(1, 14)
                        '失业保险
                        '缴费基数
                        A.Cells(i, 5) = Val(B.Cells(j, 6))
                        '缴纳金
                        A.Cells(i, 14) = Val(B.Cells(j, 8))
                        A.Cells(i, 15) = Val(B.Cells(j, 9))
                    Case Else

                End Select

            End If
        Next
    Next
    
    '把名字找到，然后将属性整合
    
    j = 3
    flag = 0
    'Debug.Print C.Cells(j, 1)
    
    For i = 3 To A.Rows.Count
        If C.Cells(j, 1) = "" Then
            For z = 3 To j   'z用于控制待写入数据和前面数据的重复比较次数
                'Debug.Print z
                If C.Cells(z, 1) = A.Cells(i, 1) Then
                    If C.Cells(z, 1) <> "" Then
                        flag = 1   'flag用于判断待写入数据是否和前面的数据重复
                        Debug.Print z
                    End If
                End If
            Next
            
            If flag = 0 Then   '只有经过上面的重复数据循环判断，才能确定这个数据不是重复数据
                C.Cells(j, 1) = A.Cells(i, 1)
                For n = 2 To 15   'n 用于控制写出数据的列数
                    C.Cells(j, n) = A.Cells(i, n)
                Next
                Debug.Print C.Cells(j, 1)
                j = j + 1    '
            End If
            
        End If
        flag = 0
    Next

    
    Debug.Print "Done"
    
End Sub
    原文作者：l_iu_xing
    原文地址: https://blog.csdn.net/l_iu_xing/article/details/92621923
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞