EXCEL（自定义函数（VBA） ）以某一个字或词（字或词：包括数字、字母、中文）为参照,提取它的下一单元

Sub kljlk()
    Dim i&, aa$, d As Object
    Set d = CreateObject("scripting.dictionary")
    aa = Application.InputBox("要查询的字符", "请输入", "小明", , , , , 2)
    For i = 1 To [a65536].End(3).Row
        If Cells(i, 1) = aa Then d(Cells(i + 1, 1).Value) = ""
    Next
    Range("B1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    Set d = Nothing
End Sub
再问： 假如我要查找0，1，2，3，4，5，6，7，8，9，10，11这些字是不是在括号里修改就行了。 修改如下面哪样吗("0", "1", "2", "3", "4", "5", "6", "7", "8", "9","10", "11", , , , , 2) 另外假如我要找小华下一单元的数据，哪又如何修改 另外在B列输入什么公式才显示结果
再答： 给你的是宏，不是自定义函数