Question

VBA检查重复数据并做出执行

我需要用一个VBA代码实现以下内容1. 使用C，D两列的combination作为查找信息2. 如果combination在1-14行出现过，则认为15行的新数据是重复信息，需要加一个mesage box 说明是重复信息3. 如果新数据不是重复数据，需要在这个新数据的A-F列加上一个粗边框如果再有新的数据循环执行上面的命令

Answer 1

Sub 宏1()
    Set db = CreateObject("Scripting.Dictionary")
    for i = 2 to ActiveSheet.UsedRange.Rows.Count
        If i<=14 Then
            db(Trim(Cells(i,3)) = True
        Else
            If db(Trim(Cells(i,3)) Then
                MsgBox "第"& i &"行数据【"& Cells(i,3) &"】重复！"
            Else
                With Range(Cells(i,1), Cells(i,6)).Borders
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                End With
            End If
        End If
    next i
End Sub