将特殊字符转换为字母

Question

我有一个带有不同语言的名称列的excel文件。我需要将此名称转换为标准英语。

例：

HỒNGTẤN必须转换为HO DANG TAN。

NGUYỄNĐỨCKIÊN-NGUYEN DUC KIEN

ĐO´NTHỊTHANHTHẢO-DOANTHI THANH

Answer 1

步骤1：打开“ 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) 。

字符列表并不详尽。 有关更多信息，请访问http://en.wikipedia.org/wiki/List_of_Latin-script_letters#Letters_with_diacritics

Answer 2

只是为了好玩，下面是该函数的一个更有效的版本，该函数在上面粘贴作为答案的Web上进行回合。

样本测试结果（100个循环的10,000个字符的字符串）。 时间是每个呼叫的毫秒数，从QueryPerformanceTimer获取。

旧：最小值：57.6毫秒，平均值：65.4毫秒

新增内容：最小值：22.1毫秒，平均值：24.4毫秒

性能提高来自于在每次替换时都没有创建字符串的新副本，而是使用Mid $语句就地替换了字符。

Public Function StripAccent(ByVal txt As String) As String
    Dim i As Long, j As Long, n As Long
    Const c1 = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
    Const c2 = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
    n = Len(c1)
    For i = 1 To n
        j = 0
        Do
            j = InStr(j + 1, txt, Mid$(c1, i, 1), vbBinaryCompare)
            If j > 0 Then Mid$(txt, j, 1) = Mid$(c2, i, 1) Else Exit Do
        Loop
    Next
    StripAccent = txt
End Function