新人求教EXCEL中用VB代码查找并返回指定值，如下描述

EXCCZ

在A16单元格输入一个内容的时候，B16单元格自动查找上面最近一行中与A16单元格内容相同的单元格并返回查找到的单元格后面一个单元格的值，即：在A16单元格输入3的时候，在B16单元格显示D

EXCCZ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Range("A16")
Set rng2 = rng1.Offset(0, 1)
If Target.Address = rng1.Address And IsNumeric(rng1.Value) Then
On Error Resume Next
rng2.Value = ""
rng2.Value = [A1:A15].Find(Cells(16, 1).Value, , , , xlByRows, xlPrevious).Offset(0, 1)
End If
End Sub