打开EXCEL,按ALT + F11,双击左面的SHEET1,在右边粘贴以下代码。然后按F5。
假设你要检查的数据都在A列。然后如果重复了在B列给出了“与多少行重复”的字眼,方便你筛选,另外,请先对数据排序。
Sub CheckRepeat()
Dim i As Integer
i = i + 1
For i = 2 To 10
If Cells(i, 1) <> "" And Cells(i, 1) = Cells(i + 1, 1) Then
Cells(i, 2) = "与" & i + 1 & "行重复!"
End If
Next i
MsgBox "查找完成!", vbExclamation
End Sub
建议先新建个表格实验是否可用。重要数据还请先备份!
追问没看懂,我只是要在excel单元格的简单公式,不是要编程。