用VBA将重音字符替换为常规字符

使用 Kutools for Excel 将重音字符替换为常规字符

对于熟悉Microsoft Excel的用户，使用VBA宏是处理此复杂工作的简便方法。

1. 按住 其他 + F11 键，然后打开 Microsoft Visual Basic for Applications窗口.

2. 点击 插页 > 模块，然后将以下宏粘贴到 模块窗口.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. 然后转到空白单元格并将公式粘贴到单元格中： = CheckStringCHAR（InString）， 例如 = CheckStringCHAR（“ù”）或 = CheckStringCHAR（A2）.

笔记：
（1）如果Microsoft Visual Basic不支持Unicode，则可能根本无法识别带重音的字符。 例如，在Visual Basic中粘贴“š”时，可能会得到“？”。 如果是这样，则此宏不可用。
（2）它不会直接替换所选单元格字符串中的重音字符。

使用VBA宏需要太多的技能和知识。 而且以下方法将使您仅需单击几下即可更轻松地工作。 Kutools for Excel's 替换重音字符工具使您可以轻松地立即用常规字符替换各种重音字符。

1. 选择要替换所有重音字符的范围。

2. 点击 库工具 > 文本 > 替换重音字符…，请参见屏幕截图：

3. In 替换重音字符 对话框中，单击 全选 按钮选择所有替换规则，然后单击确定按钮替换所有重音字符。 看截图：

:
（1）如果没有想要的特定重音字符，则可以单击 添加规则 按钮，将您自己的规则添加到“替换重音字符”对话框上方的列表框中。
（2）您可以在“替换重音字符”对话框中自定义新的替换规则。

现在，您将立即将选定范围内的所有重音字符转换为常规字符。 看截图：

特 替换重音字符 Kutools for Excel 的功能可以轻松地将整个工作簿中的各种重音字符替换为常规字符。 免费试用！