vba - 特殊字符。不同国家的替代品

Question

我目前坐在一个 excel 宏上，它应该为不同的国家替换不同的特殊字符。
每个国家都在替换特殊字符。另一种方式。

例如。:

德国正在用“AE”替换“Ä”

比利时正在用“A”替换“Ä”

表看起来像:

A 列:名字

B 列:中间名

C 列:姓氏

D 栏:国家

宏应该首先检查哪个国家在 excel 中列出，然后替换特殊字符。在 A 和 C 列中。

实际代码:

Sub UmlauteErsatezen()
    Dim Sh As Worksheet

    If cell D:D = "Germany" then
        For Each Sh In ActiveWorkbook.Worksheets
            With Sh.UsedRange
                .Replace What:="Ö", Replacement:="oe", LookAt:=xlPart, _
                  SearchOrder:=xlByRows, MatchCase:=True
                .Replace What:="Ü", Replacement:="ue"
                .Replace What:="Ä", Replacement:="ae"

    else if cell D:D ="Belgium" then
       For Each Sh In ActiveWorkbook.Worksheets
           With Sh.UsedRange
                .Replace What:="Ö", Replacement:="o", LookAt:=xlPart, _
                  SearchOrder:=xlByRows, MatchCase:=True
                .Replace What:="Ü", Replacement:="u"
                .Replace What:="Ä", Replacement:="a"

    End If

End With

Next
End If
End Sub

任何想法我该怎么做？

Answer 1

如果要检查，是否在单元格 D1 中写有“德国”，然后写下:
If Range("D1") = "Germany" Then
这个If cell D:D = "Germany" then会产生编译错误。