VBA在有重复的数据中查找

写代码最好养成申明变量的好习惯。
Option Explicit
Sub 查询()
Dim cx As String, k As Range, strAdd As String, strTemp As String, i As Integer
Range('E2').ClearContents
cx = InputBox('请输入查询对象的姓名！', , '')
If cx = '' Then Exit Sub
If IsNumeric(cx) Then
Range('E2') = cx
Else
Set k = [B:B].Find(cx, LookIn:=xlValues)
strTemp = '编号' & Chr(9) & '姓名' & Chr(9) & '组别' & vbCrLf
If Not k Is Nothing Then
strAdd = k.Address
Do
strTemp = strTemp & k.Offset(0, -1) & Chr(9) & k & Chr(9) & k.Offset(0, 1) & vbCrLf
Set k = [B:B].FindNext(k)
i = i 1
Loop While Not k Is Nothing And strAdd k.Address
If i = 1 Then
[E2] = k.Offset(0, -1)
Else
[E2] = InputBox('查找到' & i & '条记录，请选择编号——' & vbCrLf & strTemp, '输入编号')
End If
End If
Set k = Nothing
End If
End Sub