自动一匹配多的问题

globler

问一个问题 能不能实现我在K列任意一个单元格如K11输入A列的内容如规划 然后自动跳出B列相应的内容

凌空一羽

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 11 And .Row > 1 Then
        ar = Range("a1").CurrentRegion
        For i = 2 To UBound(ar)
            If ar(i, 1) = .Value Then
                Cells(.Row + n, "L") = ar(i, 2)
                n = n + 1
            End If
        Next
    End If
End With
End Sub