如何在要查找的值的同一单元格中返回vlookup的值？

我想返回在查找值被input的同一单元格中的查找结果。 图1显示了要查找的值

图1

如图2所示，当我按下Enter时，我想让A1中的值更改为t001的vlookup值

图2

查找表存在于sheet2 t001 trew t002 rty中

下面的代码我写了，但它不工作; 请在这方面帮助我

Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A114")) Is Nothing Then If WorksheetFunction.IsNumber(Target.Value) Then Application.EnableEvents = False Table2 = Sheet2.Range("C2:D3") Target.Value = Application.WorksheetFunction.VLookup(Target.Value, Table2, 2, False) Application.EnableEvents = True End If End If End Sub 

Answer 1

通过使用

 If WorksheetFunction.IsNumber(Target.Value) Then ... End If 

如果目标值不是数字，则确保“if”子句的内部不会被执行。 例如有Table2

 abc ¦ not working ----------------- 123 ¦ working 

input'abc'后没有任何反应，input123后数字消失，出现'working'