先做了一个给你:按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 F