重复时弹出提示语，谢谢老师！

ztd123

首先祝大家春节愉快！ 重复提示.rar (40.82 KB, 下载次数: 30)

2020-1-28 11:14 上传

点击文件名下载附件

3190496160

Sub tishi()
With ThisWorkbook.Worksheets(1)
    ws = .Cells(Rows.Count, 3).End(xlUp).Row
    ar = .Range("c2:d" & ws)
End With
    For i = 2 To UBound(ar)
        For s = i + 1 To UBound(ar)
            If Trim(ar(i, 2)) = Trim(ar(s, 2)) Then
                If k = "" Then
                    k = ar(i, 1) & "与" & ar(s, 1) & "重复"
                Else
                   k = k & Chr(10) & ar(i, 1) & "与" & ar(s, 1) & "重复"
                End If
            End If
        Next s
    Next i
    If k <> "" Then MsgBox k
End Sub

ztd123

3190496160 发表于 2020-1-28 13:01
Sub tishi()
With ThisWorkbook.Worksheets(1)
    ws = .Cells(Rows.Count, 3).End(xlUp).Row

太好了，顺祝新年大吉大利！