Need macro or code in excel to replace Special ASCII characters with English alplabets

Question

Can you please provide me macro or code in Excel to replace Special ASCII Characters into Alphabet.

Example, for À, Á, Â.. I need Alphabet as A.. and for ß, Ɓ, Ƅ.. I need Alphabet as B.

Can I replace these special characters with correct English alphabet characters?

Answer 1

假设数据位于名为 Data 的工作表中。

在另一个名为 Sheet1 的工作表中，我们放置了一个小的独立翻译表。我在单元格 K1 ：

处启动表格

该表给出了我们要替换的每个字符的代码和替换字符代码。

然后我们运行这个短宏来执行重新生成：

Sub FixAlphabets()
    Dim i As Long
    ary = Sheets("Sheet1").Range("K1").CurrentRegion
    For i = LBound(ary, 1) To UBound(ary, 1)
        Sheets("Data").Cells.Replace what:=ChrW(ary(i, 1)), replacement:=ChrW(ary(i, 2))
    Next i
End Sub

Answer 2

由于ß不等同于B，因此如果不对每个可能的更改进行编码就很难编码

您可以编写查找和替换的所有可能性。

例如选择整个工作表，然后查找并替换

Cells.Select
ActiveCell.Replace What:="À", Replacement:="A"
ActiveCell.Replace What:="Á", Replacement:="A"
ActiveCell.Replace What:="Â", Replacement:="A"

等等，你会遇到任何变化。