Excel自身函数:编译错误:子函数或函数未定义

Question

我们有一个系统，它总是以三位八位字节导出IP地址数据。我有一个经过验证的公式可以实现这一点，但是当我试图创建一个函数时，我得到了编译错误: Sub或function没有定义。任何帮助都将不胜感激。

有效的公式：

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE("@." & TRIM(A2), ".0", "."), ".0", "."), "@.", "") 

例如，如果单元格A2包含010.110.009.254，则此公式的结果为10.110.9.254

Public Function IPFix(IP)
IPFix = Substitute(Substitute(Substitute("@." & Trim(IP), ".0", "."), ".0", "."), "@.", "")
End Function

我期望=IPFix(A2)将产生没有前导零的有效IP格式。然而，我只是得到了这个编译错误。

Answer 1

将Substitute替换为VBA函数的Replace

Public Function IPFix(IP)
    IPFix = Replace(Replace(Replace("@." & Trim(IP), ".0", "."), ".0", "."), "@.", "")
End Function