VBA查找重复值并标注

adminsong · 发表于 2023-11-18 18:01

如何用VBA判断重复项并标注
D列是品牌名称，E列是产品名称
当的D、E两列都相同时第二次及后面出现的判定为重复产品
在L列标注产品重复

shiruiqiang · 发表于 2023-11-18 18:08

字典，dic.exists就标注一下

chxw68 · 发表于 2023-11-18 18:08

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 4).End(xlUp).Row
.Range("l5:l" & r).ClearContents
arr = .Range("d5:l" & r)
For i = 1 To UBound(arr)
xm = arr(i, 1) & "+" & arr(i, 2)
If Not d.exists(xm) Then
d(xm) = Empty
Else
arr(i, 9) = "产品重复"
End If
Next
.Range("d5:l" & r) = arr
End With
End Sub

复制代码

chxw68 · 发表于 2023-11-18 18:09

详见附件。

gwjkkkkk · 发表于 2023-11-18 18:29

请参考。。。

无关岁月 · 发表于 2023-11-18 18:30

查找重复项并标注.7z (15.91 KB, 下载次数: 21)

caiyu93 · 发表于 2023-11-18 18:56

本帖最后由 caiyu93 于 2023-11-18 18:59 编辑

ykcbf1100 · 发表于 2023-11-18 20:29

参与一下。。。

zhangcheng6688 · 发表于 2023-11-19 07:53

学习一下数组
Sub test()
r = Cells(Rows.Count, "e").End(xlUp).Row
arr = Range("d5:L" & r)
For i = 1 To UBound(arr)
For j = i + 1 To UBound(arr)
      If arr(i, 1) = arr(j, 1) And arr(i, 2) = arr(j, 2) Then
         arr(j, 9) = "产品重复"
      End If
Next
Next
[d5].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

lizhipei78 · 发表于 2023-11-19 18:44

ykcbf1100 发表于 2023-11-18 20:29
参与一下。。。

貌似循环多一次没有什么意义吧，数据多的话还影响速度，减少一次循环

		自动登录	找回密码
密码			免费注册

[求助] VBA查找重复值并标注

评分

评分

评分

评分

评分

评分

评分

评分