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

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 会产生编译错误。

Answer 2

您可以使用 Select Case 或创建要与 VLOOKUP 一起使用的表

Select Case 方法示例

Sub UmlauteErsatezen()
    Dim Sh As Worksheet
    Dim iCell As Range
    Dim vArr(), vArrSub()
    Dim i As Long
    
    For Each Sh In Thisworkbook.Worksheets
        For Each iCell in Sh.UsedRange.Columns("D").Cells
            Erase vArr : Erase vArrSub
            Select Case iCell.Value
                Case "Germany"
                    vArr = Array("Ö", "Ü", "Ä")
                    vArrSub = Array("oe", "ue", "ae")
                Case "Belgium"
                    vArr = Array("Ö", "Ü", "Ä")
                    vArrSub = Array("o", "u", "a")
                Case Else
                    'Think of something
            End Select
            For i = Lbound(vArr) To Ubound(vArr)
                Intersect(iCell.EntireRow, _
                          Sh.UsedRange).Replace vArr(i), _
                                                vArrSub(i), _
                                                xlPart
            Next i
        Next
    Next
End Sub

我并不是说这些是回答问题的唯一方法。