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 = NothingEnd 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列输入什么公式才显示结果 再答： 给你的是宏，不是自定义函数