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).Va...