函数返回范围内的单元格地址的字母

我需要一个可以从一个范围返回单元格地址的字母的Excelmacros。

例如，如果我有两个工作表，我想在工作表2上使用它，但它应该find工作表1中单元格的字母。 就像是：

= Letter（sheet1！A1：sheet1！D6;“cat”;“not found”）

所以在这种情况下，必须在Sheet1的A1：D6中search“cat”，如果find了，就会返回字母“C”，“找不到”find它。

我已经find了它，发现了一些相似的，但我不知道VBA，并无法适应的东西。

有人可以帮我吗？

Answer 1

Function Letter(Target As Range, Search As Variant, value_if_false As Variant) Dim f As Range Set f = Target.Find(Search, After:=Target.Cells(1), LookIn:=xlFormulas, LookAt:=xlWhole) If f Is Nothing Then Letter = value_if_false Else Letter = Split(f.Address(True, True), "$")(1) End If End Function