打开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 "查找完成!", vbExclamationEnd Sub建议先新建个表格实验是否可用。重要数据还请先备份!