相同数据弹出提示信息

龙吟虎啸

大森好
在名称和规格同时输入数据时，和之上名称加规格相同信息时，弹出提示信息。如附件。
7788.rar (14.31 KB, 下载次数: 6)

2017-3-14 21:33 上传

点击文件名下载附件

金樽空对月

见附件

金樽空对月

1. Sub mycheck()
   
2. Dim x, z, i, ar, br()
   
3. z = Range("d65536").End(3).Row
   
4. ar = Range("d2:e" & z - 1)
   
5. For x = 1 To UBound(ar)
   
6.    If Range("d" & z).Text & Range("e" & z).Text = ar(x, 1) & ar(x, 2) Then
   
7.       i = i + 1
   
8.       ReDim Preserve br(1 To i)
   
9.       br(i) = "D" & x + 1 & "E" & x + 1
   
10.       MsgBox "你输入的内容与 D" & x + 1 & "E" & x + 1 & "的名称&规格相同，请核对！"
    
11.    End If
    
12. Next
    
13. '******把相同的单元格地址记录在I列********
    
14. Range("i:i").Clear
    
15. Range("i1") = "输入内容相同单元格地址"
    
16. Range("i2").Resize(i, 1) = Application.WorksheetFunction.Transpose(br)
    
17. End Sub

复制代码

龙吟虎啸