Excel VBA小程序 -使用VBA实现VLOOKUP函数查询？

表格内容：

A列	B列	C列	D列	E列	F列
姓名	出生日期	年龄		姓名	年龄
杨春海	1987-6-22	33		许文武
赵春雨	1980-9-17	39		刘永江
李美桥	1998-4-12	22
刘永江	1992-3-17	28
许文武	1987-4-13	33
刘景瑞	1994-7-27	26

如果用VLOOKUP函数解决：

=IFERROR(VLOOKUP(A11,A$1:C$7,3,0),"")

如果使用VBA代码解决：

Sub DctFind()
    Dim d As Object, arr, brr, i&
    Set d = CreateObject("scripting.dictionary")
    d.CompareMode = vbTextComp