Excel 将公式转换为用户函数

Question

我建立了一个公式，将电子邮件地址与另一组数字中的数字分开。例如，我有数千种以下类型的字符串：

[电子邮件受保护]
公式后的结果： [email protected]

我的完美运行的 Excel 公式是： =右($A$6,LEN($A$6) LEN(左(A$6$, (匹配(TRUE,ISERROR(值(MID($A$6,ROW(间接("1:"&LEN($A$6))),1))),0))-1)))。 特别注意我如何处理 VALUE （将其更改为 VAL）和 INDERECT 函数（将其 calc [ xxx ] 括起来，这是我认为应该起作用的损坏的用户函数，但是；它只是不起作用。

  Function Test(Cell_Addrs As Range)
    
     NewString = Right(Cell_Addrs, Len(Cell_Addrs) - Len(Left(Cell_Addrs, _ 
    (Application.WorksheetFunction.Match _
    (True, IsError(Val(Mid(Add_Rss, Application.WorksheetFunction.Row _
    ([INDIRECT("1:" & Len(Cell_Addrs))]), 1))), 0)) _ 
    - 1)))

    Test = NewString

End Function

Answer 1

使用 Val()< /a> 函数获取前面的数字并将其替换为空字符串。

Val 函数在第一个字符处停止读取字符串
它无法识别为数字的一部分。

Public Function ToEmail(rng As Range) As String
    ToEmail = Replace(rng.Value, Val(rng.Value), vbNullString)
End Function