制作反转字符串函数，填补Excel内置函数空白

2021-12-20 14:06:45 浏览数 (1)

标签：VBA

在《20211202，爱的对称日，Excel也能判断》中，我们使用公式来判断单元格中的内容是否为“回文”，公式稍有点复杂。然而，如果Excel中有一个反转函数，那就简单了。

其实，VBA中有一个内置函数可用来反转字符串：StrReverse函数。如果Excel工作表中能够使用这个函数，那么就可直接在Excel中反转字符串了。

这需要编写一个自定义函数，但很简单。在VBE中插入一个标准模块，输入下面的代码：

代码语言：javascript复制

Function RevString(ByVal str As String) As Variant
    RevString = VBA.StrReverse(str)
End Function

OK！准备就绪。

现在，我们再来解决判断单元格中的内容是否为回文的问题，如下图1所示。

图1

只需输入公式：

代码语言：javascript复制

=IF(C4=RevString(C4),"是回文","不是!")

就可以获得结果。是不是比单独使用Excel内置函数简单了许多！

我们进一步看看RevString函数的效果，如下图2所示。

图2

有了这个函数后，对于许多Excel问题，如果不想编写复杂的公式，往往可以使公式更简洁。

0 人点赞