如何做循环读取行如果存在重复的数据为VBAmacros并把味精框？

如何做循环读取行如果存在重复的数据为VBAmacros并把消息框？

No Campaign TL Location of Scanned Document 1 *adrian adrian adrian* 2 *adrian adrian adrian* 

Answer 1

检查A栏中的重复内容，将A修改为您希望检查的其他栏

 Sub DupeCheck() For i = 1 to Range("A" & Range("A" & rows.count).end(xlUp).row) if Range("A" & i).value = Range("A" & i+1).value then msgbox "Duplicate Record found in Row " & i & ". Duplicate Value is : " & Range("A" & i+1).value end if Next i End Sub