先做了一个给你:按ALT+F11 打开代码窗口,在左边的格(工程***管理器)内,右键,插入,模块,将下面的代码复制到右边窗口内(模块1的代码窗口),--------Public Function iSeek(iRng As Range, num As Variant) As StringDim iAdd$, c As RangeFor Each c In iRng If c.Value = num Then iAdd = c.Address(False, False): Exit ForNextIf iAdd = "" Then iSeek = "#无" Else iSeek = iAddEnd Function-------------然后关闭代码窗口,返回sheet表现在就可以将这个iseek()函数当做普通函数使用了这个函数有两个参数,第一个是单元格区域,第二个是要查找的数值例:1 2 3 4 56 7 8 9 1011 12 13 14 1516 17 18 19 2021 22 23 24 25其他单元格内输入公式:=iSeek(A1:E5,24)结果:D5