VBA 判断重复

misterZ

1. =IF(MATCH(A15&B15&C15&D15,$A$2:$A$18&$B$2:$B$18&$C$2:$C$18&$D$2:$D$18,0)<>ROW()-1,"重复了","")

复制代码

那时雨

字典，转一圈。殊途同归~

无关岁月

zhangcheng6688

学习一下
Sub test()
r = Cells(Rows.Count, "d").End(xlUp).Row
arr = Range("a1:e" & r)
For i = 2 To UBound(arr)
    For j = i + 1 To UBound(arr)
         If arr(i, 1) = arr(j, 1) And arr(i, 2) = arr(j, 2) And arr(i, 3) = arr(j, 3) And arr(i, 4) = arr(j, 4) Then
            arr(j, 5) = "重复了"
         End If
    Next
Next
[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

sunya_0529

JSA练习一下——