急求高手指点，VB编辑中出现错误，如何在过程中和给定的条件做整体比较，，，谢谢

Question

Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox
If Target.Address = "$A$1" Then
vl = Cells(Target.Row, Target.Column)
xr = Target.Row: xc = Target.Column
If Len(vl) = 0 Then Exit Sub ''空值退出
On Error Resume Next
x = ActiveSheet.Name
'MsgBox x
For Each Sh In ThisWorkbook.Sheets
If Sh.Name = x Then GoTo a_next
y = Sh.Name
'MsgBox y
Set sj = Worksheets(y)
ed = sj.[A65536].End(xlUp).Row
'MsgBox (ed)
Set rg = sj.Range("A1:A" & ed).Find(vl, LookIn:=xlValues)
'MsgBox (rg)
If rg Is Nothing Then GoTo a_next 'MsgBox y & "没找到！":
Target.Select
'MsgBox rg.Row & rg.Column
Worksheets(x).Cells(xr, xc + 1) = Worksheets(y).Cells(rg.Row, rg.Column + 1)
Set sj = Nothing
Exit For
a_next: Set sj = Nothing
Next
End If
End Sub
这是查找并引用的语法，就是有几张工作表，在第一个表的a1单元格中输入输入编号，可根据该编号在多个表中找到该编号，并能把该编号所在行的第2列的数据显示出来（第1个表的B1格中）的程序，问题是，现有表中的编号不是按顺序排列的（编号有1位数的——9位数的。排序比较乱）。假如前十行都是6,7位数的编号，十一行的编号是3的话。输入 3 查找，结果显示的不是第十一行 3 所对应的数据，而显示的是前十行个位（比如1013，不管是几位数只要最后一位是3）第一个满足 3 的行的数据，而我要的是第十一行的数据，出现这样的错误该咋解决，，谢谢，，具体语法是。。。

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox
If Target.Address = "$A$1" Then
vl = Cells(Target.Row, Target.Column)
xr = Target.Row: xc = Target.Column
If Len(vl) = 0 Then Exit Sub ''空值退出
On Error Resume Next
x = ActiveSheet.Name
'MsgBox x
For Each Sh In ThisWorkbook.Sheets
If Sh.Name = x Then GoTo a_next
y = Sh.Name
'MsgBox y
Set sj = Worksheets(y)
ed = sj.[A65536].End(xlUp).Row

For i = 1 To ed

If sj.Cells(i, 1).Value = vl Then

Worksheets(x).Cells(xr, xc + 1) = sj.Cells(i, 2).Value
Exit For
End If

Next

a_next: Set sj = Nothing
Next
End If
End Sub

追问

谢谢，非常感谢，如果找不到或是没有要查找的编号，要显示一个提示框，，，该咋样做，，要加啥语句。。。。谢谢

追答

我回复了,怎么看不到啊

Answer 2

挺复杂