不太明白你问题的意思ctrl+F 查找序列号不就行了吗 ==================================================用EXCEL VBA吧,Alt+F11打开VB编译器,在对应的工作表中粘贴下面的代码:Sub find()
Dim i, j, index, maxRow As Integer
Dim myString(1) As String
maxRow = [A65535].End(xlUp).Row
For i = 1 To (maxRow - 1)
For j = (i + 1) To maxRow
If Cells(j, 1) = Cells(i, 1) Then
myString(index) = Cells(j, 1).Value
index = index + 1
End If
Next j
Next i
MsgBox "序列号 " & myString(0) & " " & myString(1) & " 重复!"End Sub然后,工具-宏-宏,运行这个find宏,就会有提示告诉你是哪两个序列号重复了。我这个代码是假设你的序列号都在A列,如果在B列,请将代码中的[A65535]改为[B65535]。
|